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FOREWORD 


This  report  documents  the  results  of  the  research  performed  to  date  on 
the  Second  Generation  UTCS  Software  System.   This  system  provides  for 
on-line  traffic  signal  optimization.   The  documentation  will  be  of  interest 
to  urban  traffic  engineers  of  cities  who  desire  to  undertake  experiments  to 
determine  the  effectiveness  of  applying  second  generation  control  software 
(in  comparison  with  first  generation  type  software)  for  various  types  of 
networks  or  portions  of  networks. 

This  report  is  comprised  of  three  volumes  which  detail  the  second 
generation  software  which  was  converted  from  machine  dependent  language 
to  FORTRAN  and  those  enhancements  to  the  original  software  made  during 
the  conversion  effort.   This  project  was  conducted  for  the  Federal 
Highway  Administration,  Office  of  Research,  Washington,  D.  C,  under 
Contract  DOT-FH-11-8317  "UTCS  Software  Support." 

While  the  software  system  described  in  this  report  was  operational  in 
the  Washington,  D.  C,  test  facility,  it  will  require  additional  pro- 
graming effort  to  render  it  operational  in  other  cities.   It  is  this 
same  software  system  that  will  receive  further  investigation  and  become 
the  subject  of  future  research  by  the  Federal  Highway  Administration. 

Sufficient  copies  of  this  report  are  being  distributed  in  sets  of  three 
volumes  by  FHWA  bulletin  to  provide  a  minimum  of  one  set  to  each  FHWA 
regional  office,  one  set  to  each  FHWA  division  office,  and  one  set  to 
each  State  highway  agency.   Direct  distribution  is  being  made  so  that 
the  State  and  division  office  copies  are  sent  to  the  division  offices. 

Charles  F.  Scheff 

Director,  Office  of  Research 


NOTICE 

This  document  is  disseminated  under  the  sponsorship  of  the  Department  of 
Transportation  in  the  interest  of  information  exchange.   The  United 
States  Government  assumes  no  liability  for  its  contents  or  use  thereof. 

The  contents  of  this  report  reflect  the  views  of  Honeywell,  Incorporated, 
which  is  responsible  for  the  facts  and  the  accuracy  of  the  data  presented 
herein.   The  contents  do  not  necessarily  reflect  the  official  views  or 
policy  of  the  Department  of  Transportation. 

This  report  does  not  constitute  a  standard,  specification,  or  regulation. 

The  United  States  Government  does  not  endorse  products  or  manufacturers. 
Trademarks  or  manufacturers'  names  appear  herein  only  because  they  are 
considered  essential  to  the  object  of  this  document. 
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SECTION   1 
INTRODUCTION 


A  second  generation  Urban  Traffic  Control  System  (UTCS-2GC)  has  been 
implemented  by  the  Federal  Highway  Administration  in  the  District  of 
Columbia.     This  document  presents  the  FORTRAN  version  (UTCS/2GCF) 
of  this  software.  1 

Developed  by  Sperry  Systems^,   the  first  generation  UTCS  demonstrated  that 
computer  technology  could  deal  with  the  complex  problems  of  traffic  con- 
trol.    This  first  generation  UTCS  was  capable  of  choosing  a  fixed  timing 
plan  that  best  fit  the  actual  traffic  situation  from  a  large  selection  of  timing 
plans.     UTCS/2GC,    developed  by  TRW,   utilizes  software  that  computes 
intersection  timing  plans  and  offers  the  greatest  potential  for  coping  with 
the  current  and  predicted  traffic  environment.     This  second  generation 
software  package  uses  the  executive  structure,   the  surveillance  compu- 
tations,  and  the  command  software  of  the  first  generation  UTCS. 

Both  UTCS  and  UTCS/2GC  were  implemented  on  a  Xerox  Data  System  (XDS) 
Sigma-5  computer  in  the  District  of  Columbia.     The  Honeywell  developed 
UTCS/2GCF  software  is  constructed  using  the  XDS  Real  Time  Batch  Monitor 
(RBM-C04)  operating  system  and  requires  60491  words  of  core  memory. 
The  Level  5  routines  are  overlayed  and  do  not  occupy  core  memory  simul- 
taneously. 

The  UTCS/2GC  software,   with  the  exception  of  the  Level  5  routines,   was 
originally  coded  in  MACRO-SYMBOL  assembly  language.     Except  for 
routines  dealing  with  executive  operations,    input /output,   and  data  packing 
and  unpacking,   this  software  has  been  translated  to  FORTRAN  IV.     This 
translation  maintains  the  original  logic  structure  of  the  package.     FORTRAN 
IV,   a  machine  independent  language,   requires  a  minimum  amount  of  recoding 


if  the  software  is  adapted  to  another  hardware  configuration.     The  MACRO 
SYMBOL  routines  are  machine  dependent  and  must  be  rewritten  for  other 
hardware  configurations.     The  entire  software  system  is  described  in  this 
document  with  the  intent  that  the  FORTRAN  software  may  be  readily  adaptable 
to  other  computers  and  traffic  control  systems. 


SECTION  2 
THE  UTCS/2GCF  SOFTWARE  SYSTEM 


This  section  includes  a  description  of  the  organization  of  the  UTCS  CPU 
functions  and  a  description  of  the  priority  interrupt  system.     Also  included 
is  a  list  of  all  routines  in  the  UTCS/2GCF  system  and  the  functions  of  each 
are  stated.     Finally,   the  requirements  and  philosophy  of  the  second  gen- 
eration control  software  are  discussed,   and  an  overview  of  the  interface 
between  the  second  generation  control  outputs  and  the  first  generation  signal 
timekeeping  routines  is  given. 


2.  1  ORGANIZATION  OF  UTCS  CPU  FUNCTIONS 

The  UTCS/2GCF  computer  routines  are  organized  in  accordance  with  the 
frequency  with  which  the  various  functions  are  required  to  be  performed. 
The  UTCS  Executive  Routine  controls  the  sequence  by  which  other  UTCS 
cyclical  routines  are  performed  in  accordance  with  pre-defined  assignments 
of  priority  and  elapsed  time.     Functions  that  are  performed  32  times  per 
second  are  specified  in  routines  that  are  assigned  to  Priority  Level  1. 
Priority  Level  2  routines  are  those  that  are  entered  twice  per  second.     All 
the  remaining  first  generation  routines  except  the  start-up  routines  are 
assigned  to  Priority  Level  3.     The  start-up  routine  is  not  assigned  to  a 
priority  level.     The  CRT  output  routine  is  assigned  to  Priority  Level  4  and 
the  2GCF  on-line  network  optimization  package  is  assigned  to  Priority 
Level  5. 

The  timing  for  the  UTCS  Executive  Routine  is  controlled  by  an  internal  clock 
which  causes  a  program  interrupt  32  times  per  second.     When  the  interrupt 
occurs,   any  routine  in  progress  is  suspended  and  control  is  given  to  the 
UTCS  Executive  Routine  which  performs  all  multiplexer  (MUX)  input/output 


(I/O),   and  executes  the  UTCS  Level  1  routines.     When  a  half-second  mark  is 
encountered,  the  UTCS  Executive  Routine  causes  the  Priority  Level  2  routines 
to  be  performed.     At  the  completion  of  Priority  Level  1  and  (if  on  the  half- 
second)  Priority  Level  2,  the  UTCS  Executive  Routine  allows  the  Priority 
Level  3  routines  to  be  resumed  from  the  point  at  which  they  had  been  inter- 
rupted.    The  Priority  Level  4  interrupt  is  triggered  every  2  5  seconds  to 
update  the  CRT  status  pages.     The  Priority  Level  5  interrupt  is  triggered 
every  5  MINCT  seconds  (currently  5  minutes).     The  Priority  Level  5 
Executive  is  entered  upon  triggering  this  interrupt.     This  executive  deter- 
mines if  Priority  Level  5  processing  is  required.     The  Monitor  allows  the 
lower  level  priority  routines  to  be  resumed  from  the  point  at  which  they 
were  interrupted  by  the  Priority  Level  1  and  2  routines. 


2.  2    PRIORITY  INTERRUPT  SYSTEM 

Twelve  external  interrupts  are  installed  on  the  UTCS  Sigma  5  CPU.     A  list- 
ing of  the  present  external  interrupts1  tasks  is  contained  in  Table  1.     In  ad- 
dition to  the  external  interrupts,    an  internal  clock  pulse  decrements  a  counter 
8000  times  per  second.     When  the  counter  is  decremented  every  1/32  of  a 
second  to  zero,    the  Counter  Equals  Zero  interrupt  in  location  X'5A'  (where  X 
signifies  hexadecimal)  is  triggered,    causing  a  portion  of  the  UTCS  executive 
routine  to  set  the  counter  to  its  initial  value  of  250  and  trigger  the  UTCS 
Level  1  interrupt.     Note  that  the  internal  clock  interrupt  in  location  X'5A' 
has  a  higher  priority  than  the  external  interrupts  listed  in  Table  1. 

The  priority  triggering  structure  of  the  UTCS  CPU  is  shown  in  Table  2. 
Every  1/32  of  a  second,   the  Counter  Equals  Zero  internal  clock  interrupt 
triggers  the  UTCS  Level  1  external  interrupt.     The  UTCS  Level  1  interrupt 
causes  the  UTCS  Executive  Routine  to  transfer  the  required  data  to  and 
from  the  I/O  Multiplexer  and  to  initiate  the  processing  of  the  detector 
inputs.     When  1/2  second  has  elapsed,   the  UTCS  Level  2  and  Level  3 


external  interrupts  are  triggered  by  the  UTCS  Executive  Routine.     The  Level 
2  routines  are  primarily  controller  oriented.     At  the  completion  of  Level  2, 
the  15-minute  report  routine  is  performed  at  Level  3  if  the  15-minute  flag 
is  set.     At  Level  3  the  end-of-day  report  routine  is  also  performed  if  the 
end-of-day  flag  is  set.     After  completion  of  Level  3,   the  Level  4  external 
interrupt  is  triggered  if  there  is  a  CRT  request.     The  Priority  Level  5 
external  interrupt  is  triggered  every  5MINCT  seconds  by  the  Monitor 
(currently  5  minutes).     The  Priority  Level  5  executive  is  then  entered  to 
determine  if  the  Level  5  routines  should  be  executed.     When  the  Priority 
Level  5  routines  have  completed  execution,   the  Monitor  allows  the  system 
to  perform  batch  processing  or  idle  until  the  next  1/32  second  clock  inter- 
rupt. 


Table  1.     Sigma  5  Interrupt  Structure  (External  Group  2) 


UTCS  CPU 

Location  Function 


X  '60  Not  used 

'61  Not  used 

62  Level  1  (1/32  second  timing) 

63  Level  2  (1/2  second  timing) 

64  Level  3  (other  cyclical  routines) 

65  Not  used 

66  CRT  Input  (not  used)  TT       ,  , 

r  Used  by 

67  Output  to  CRT  Monitor 

68  Level  4  (CRT  Output  Routine) 

69  Level  5  (2GCF  MACRO  Loop) 
6A  Not  used 

6B  Monitor  Control  Task 


Table  2.     Priority  Triggering  Structure 


Interrupt 

UTCS  Level  1 
UTCS  Level  2 
UTCS  Level  3 
UTCS  Level  4 
UTCS  Level  5 
Monitor  Batch  Mode 


Triggered  By 

Counter  Equals  Zero  (1/32  second) 

UTCS  Executive  Routine 

UTCS  Executive  Routine 

Routine  K 

UTCS  Executive  Routine 

RBM 


2.  3    UTCS/2GCF  ROUTINES  AND  FUNCTIONS 

The  entire  UTCS/2GCF  system  is  comprised  of  routines  that  are  assigned  to 
one  of  the  five  priority  levels  discussed  in  the  previous  subsection.     Priority 
Level  1  routines  embody  these  functions  which  are  directly  associated  with 
the  measurement  of  vehicular  traffic  and  executive  control. 

The  Priority  Level  2  routines  are  primarily  those  associated  with  controller 
commands,    error  checking,   and  data  evaluation.     Central  to  the  Priority 
Level  2  functions  are  a  sequence  of  routines  performed  for  each  controller. 
These  routines  provide  the  required  functions  for  sequencing  the  controller 
through  its  cycle,   placing  it  on  or  off-line  as  desired,   and  adjusting  split 
and  offset  in  accordance  with  traffic  volumes  or  operator  commands.     Other 
Level  2  routines  provide  error  checking  for  each  controller,    controller  cycle 
timekeeping,   data  computation,   and  the  operation  of  semi-actuated  con- 
trollers. 


The  Priority  Level  3  routines  provide  the  display  and  operator  interface 
functions.  Those  data  evaluation  functions  for  which  time  is  not  critical 
are  also  performed  by  Priority  Level  3  routines.     Each  routine  is  called 


by  the  Level  3  portion  of  the  Executive  Routine  and  returns  to  the  Level  3 
portion  of  the  Executive  Routine  when  it  is  completed. 

The  Priority  Level  4  routine  updates  the  CRT  status  pages. 

The  Priority  Level  5  routines  embody  the  major  functions  of  the  Traffic 
Adaptive  Network  Signal  Timing  Program.     These  routines  provide  for 
traffic  prediction,    subnetwork  determination,    signal  timing  computation 
to  optimize  network  flow,    subnetwork  interfacing,   and  transition  optimi- 
zation. 

The  major  routines,    their  functions  and  priority  level  are  listed  in  Table  3, 

Table  3.     UTCS/2GCF  Routines  and  Functions 


Routine  Function 

A  Executive 

Al  Priority  Level  2  Executive 

B  Detector  input  data  interpretation 

C  Raw  measure  of  effectiveness  data 

processing 

E  Detector  and  communication  malfunction 

detection 

F  Measure  of  effectiveness  data  compu- 

tations and  smoothing 

H  System  status  report  generation 

I  End-of-day  system  status  report 

generation 

J  Map  display  driver 

K  CRT  display 

M  Manual  control  panel  processing 

O  A-Phase  Green  return  processing 


Prior 
Leve 

ity 
jl 

Size 

1 

630 

2 

202 

1 

116 

1 

128 

3 

410 

3 

244 

3 

332 

3 

998 

3 

456 

3 

1786 

3 

694 

2 

106 

Table  3.     UTCS/2GCF  Routines  and  Functions  (Concluded) 


Routine  Function 

P  Synchronization  of  controller  with 
computer 

Q  System  shutdown 

R  Transformation  of  controller  to  Standby 

S  Fixed  time  controller  transition 

T  Fixed  time  controller  timing 

U  Offset  correction 

V  Micro  loop  executive 

W  Signal  pattern  selection 

X  Semiactuated  controller  timing  and 
transition 

Y  Start  up  and  data  base 
MACRO  Macro  loop  executive 

RTN5  Surveillance  Data  Computation 

PREDICT  Volume  and  speed  prediction 

RTSND  Real-time  subnetwork  determination 

LSTSQS  Network  optimization 

INTFC  Subnetwork  interfacing 

TRNPAR  Transition  parameter  computation 


Priority 
Level 


Size 


114 


NA 

30 

2 

70 

2 

320 

2 

376 

2 

98 

2 

614 

3 

690 

2 

350 

NA 

18714 

5 

168 

5 

264 

5 

568 

5 

1798 

5 

5158 

5 

510 

5 

296 

••'Includes  initialization  data. 

2.4    PHILOSOPHY  OF  THE  SECOND  GENERATION  SOFTWARE 

The  requirements  upon  which  the  second  generation  control  software  is  based 
are: 


1)       Signal  light  patterns  for  the  traffic  network  should  be 
optimized  on-line  as  a  function  of  current  and  predicted 
traffic  conditions. 
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2)  The  system  should  adapt  to  localized,   short-term 
fluctuations  in  traffic;  however,  this  adaption  should 
be  performed  within  the  progression  constraints 
imposed  by  item  1). 

3)  New  signal  light  patterns  must  be  implemented  in  a  non- 
disruptive  manner. 

The  second  generation  software  meets  the  above  requirements  through  the 
following  features: 

1)  A  multi-level  control  approach  is  used 

2)  The  total  network  is  partitioned  into  subnetworks  in 
real  time. 

Using  multi-level  control  permits  the  complexity  of  the  control  algorithm 
used  to  be  tailored  to  the  situation  at  hand.     For  example,   at  one  extreme, 
marked  changes  in  traffic  characteristics  will  necessitate  reoptimization. 
The  algorithm  to  perform  this  reoptimization  is  relatively  complex  and 
time  consuming.     At  the  other  extreme,   difficulties  caused  by  relatively 
small,    short-term  fluctuations  at  a  given  intersection  can,   in  general,   be 
handled  with  simple  algorithms  which  require  little  computational  time. 

Two  advantages  are  gained  from  partitioning  the  network  into  subnetworks. 
First,   because  of  street  geometry  and  traffic  conditions,   an  optimal  solution 
for  a  very  large  grid  would  tend  to  disperse  delay  over  the  entire  network 
due  to  the  averaging  process  inherent  in  the  algorithm.     Thus,    delay  in  any 
given  subgroup  would  be  larger  than  if  the  subgroup  were  considered  inde- 
pendently.    Second,  the  execution  time  of  the  network  optimization  routine 
is  nonlinear  with  respect  to  the  number  of  links;  thus,   it  is  more  efficient 
from  a  computer  resources  standpoint  to  process  the  intersections /links 
in  several  groups  rather  than  all  in  one  group. 


Multi-level  control  is  provided  by  the  MACRO  loops  which  in  turn  provide 
strategic  and  tactical  optimization  respectively.     The  MACRO  loop  is 
entered  once  each  5MINCT  minutes  and  optimizes  signal  settings  for  an 
entire  subnetwork.     Signal  patterns  for  the  entire  UTCS  network  are  com- 
puted in  less  than  2  minutes. 

The  UTCS/2GCF  Priority  Level  5  routines  comprise  the  2GCF  MACRO  loop. 
An  overview  of  the  first  and  second  generation  software  interface  is  given 
in  the  following  subsections. 


2.  5    OVERVIEW  OF  THE  FIRST  AND  SECOND  GENERATION  SOFTWARE 
INTERFACE 


Overview  flows  of  the  UTCS/2GCF  Priority  Level  2  and  Priority  Level  5 
loops  are  given  in  Figures  1  and  2,    respectively.     The  Critical  Intersec- 
tion Control  Routine  (Routine  V)  of  the  first  generation  system  has  re- 
placed Routine  LOCAL  used  in  the  Assembly  language  version  of  UTCS-2GC. 

As  shown  in  Figure  2,    the  Priority  Level  5  routines  have  little  interaction 
with  the  other  four  priority  levels  of  the  software  system. 

The  method  for  maintaining  traffic  signal  timing  sequences  in  the  first 
generation  system  is  through  the  use  of  interval  duration  arrays.     These 
arrays  contain  the  time  duration  of  every  interval  associated  with  each 
controller.     The  interval  durations  are  comprised  of  fixed  intervals  and 
variable  intervals.     The  variable  intervals  are  used  to  adjust  splits  and  to 
allow  for  controller  transitions  from  one  signal  pattern  to  another. 

Two  sets  of  interval  durations  are  maintained  in  the  first  generation  software 
for  each  controller.     These   working  interval  durations  are  used  in  the 
Priority  Level  2  loop  to  step  each  controller  through  its  proper  timing 
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Figure  1.     UTCS/2GCF  Priority  Level  Two  Routines 
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Figure  1.     UTCS/2GCF  Priority  Level  Two  Routines  (Concluded) 
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Figure  2.     UTCS/2GCF  Priority  Level  Five  Routines 
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sequence.     The  working  interval  array  is  loaded  from  the  entry  interval 
array  after  the  transition  from  one  signal  pattern  to  another  is  completed. 

The  entry  interval  array  is  loaded  from  the  RAD  when  a  pattern  update 
occurs. 

The  second  generation  software  must  interface  with  these  arrays  so  that  the 
signals  may  be  controlled.     The  outputs  of  the  Priority  Level  5  loop  are  off- 
sets,   splits,   and  cycle  lengths  for  each  intersection.     From  these  outputs 
the  variable  interval  durations  are  computed  for  each  controller.     These 
are  obtained  by  first  computing  phase  durations  for  each  controller  by 
using  splits  and  cycle  length.     The  variable  intervals  are  then  computed  by 
subtracting  the  sum  of  the  fixed  intervals  in  each  phase  from  the  computed 
phase  duration.     The  result  is  the  variable  interval  duration  which  is  loaded 
into  its  proper  location  in  the  entry  interval  array.     After  the  processes  have 
been  completed  for  all  controllers,   the  transition  flags  are  set  to  transition 
the  controllers  to  the  new  pattern. 

The  net  effect  of  the  above  processes   is  to  vary  the  cycle  lengths,   offsets, 
and  splits  through  use  of  the  variable  intervals.     All  clearance  intervals 
are  maintained  as  a  function  of  the  time-of-day  pattern  read  in  from  the 
RAD. 


2.  6    SECOND  GENERATION  (FORTRAN)  -  2GCF  -  ROUTINES 

The  following  pages  describe  in  detail  each  of  the  routines  in  the  2GCF/UTCS 
software.     The  prescribed  format  for  presenting  the  routines  is  followed; 
however,   in  some  instances  all  of  the  information  was  not  applicable  and  in 
those  cases  the  paragraph  is  marked  N/A. 
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2.  6.  1    ROUTINE  A 

2.  6.  1.  1    Purpose 

The  purpose  of  the  UTCS  Executive  (Routine  A)  is  to  control  the  sequence 
by'which  other  routines  are  performed  in  accordance  with  predefined 
assignments  of  priority  and  elapsed  time.     In  addition,   Routine  A  performs 
all  multiplexer  (MUX)  I/O.     This  routine  is  coded  in  assembly  language 
and  is  machine  dependent.     The  executive  for  another  hardware  application 
must  functionally  accomplish  the  tasks  described  herein. 


2.  6.  1.  2    Relationship 

The  clock  interrupt  causes  this  routine  to  be  entered  every  1/32  of  a  second. 

2.  6.  1.  3    Assumption 

All  routines  are  configured  into  the  system  for  execution. 

2.  6. 1. 4    Approach 

Routine  A  is  composed  of  an  Executive  Initialization  Loop,   a  Counter  Pulse 
3  Clock  Task,   a  Main  Loop,   a  Level  3  Loop  and  an  End  Action  Task.     It 
also  schedules  the  Level  2  Executive,   Routine  Al,   which  controls  the 
sequencing  of  all  Priority  Level  2  routines. 

The  Executive  Initialization  Loop  is  entered  directly  from  Routine  Y  after 
it  has  completed  its  required  start-up  tasks.     The  loop  sets  up  the  priority 
structure  of  the  program  and  allows  real  time  processing.     The  loop 
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connects  tasks  directly  or  centrally  to  interrupts.     By  connecting  tasks 
directly,  the  monitor  is  bypassed  and  the  user  must  save  the  environment. 
When  tasks  are  connected  centrally,   the  monitor  will  save  the  environment 
at  the  expense  of  slower  reaction  time  than  that  of  direct  connection.     It 
should  be  noted  that  the  internal  clock  interrupt  (location  X'5A' )  has  a 
higher  priority  than  those  of  the  external  interrupts  whose  priority  order 
is  listed  in  Table  1. 

When  the  1/32  of  a  second  mark  occurs,   the  internal  clock  interrupt  causes 
the  monitor  to  transfer  control  to  the  Counter  Pulse  3  clock  task.     This 
task  resets  the  clock  counter  value  to  250  (an  internal  clock  pulse  decre- 
ments this  counter  8  000  times  per  second  resulting  in  a  clock  interrupt 
every  1/32  of  a  second),   triggers  the  Priority  Level  1  interrupt  (location 
X'62'),    releases  the  internal  clock  interrupt  (location  X'5A' )  and  exits  to 
the  monitor.     The  monitor  then  transfers  control  to  the  Main  Loop  of  the 
UTCS  Executive  Routine. 

The  Main  loop  updates  the  real  time  clock  (RTC),   sets  half-second  and  one 
second  flags,   and  decrements  several  scheduler  clocks  once  per  second. 
When  a  scheduler  clock  has  counted  down  to  zero,   its  corresponding  Pri- 
ority Level  3  routine  is  scheduled  by  setting  its  activity  bit  in  the  appropriate 
word  in  the  Master  Activity  Scan  Table  (MAST).     The  next  task  is  to 
decrement  the  Detector  Buffer  Pointer  (DBP)  and  perform  all  multiplexer 
I/O.     The  Detector  Buffer  Pointer  is  used  to  point  to  the  vehicle  detector 
array  (PI,   P2,    P3,   or  P4)  that  is  to  be  filled  for  use  in  the  detector  proc- 
essing algorithm  used  by  Routine  B.     After  multiplexer  I/O  is  performed, 
the  Priority  Level  1  routines  (Routines  B  and  C)  are  performed;  if  a  half- 
second  mark  is  encountered,   the  Priority  Level  2  interrupt  (location  X'63') 
is  triggered  and  the  Priority  Level  3  interrupt  (location  X'64')  is  triggered. 
Then  the  Priority  Level  1  interrupt  (location  X'62')  is  released,  and  con- 
trol is  returned  to  the  monitor. 
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If  the  Priority  Level  2  interrupt  is  the  highest  interrupt  active,   control  is 
given  by  the  monitor  to  the  Priority  Level  2  Executive,   Routine  Al.     If  the 
Priority  Level  3  interrupt  is  the  highest  interrupt  active,    control  is  given 
by  the  monitor  to  the  Level  3  loop.     The  Level  3  loop  controls  the  execution 
of  the  Level  3  routines,   whose  order  of  priority  is  Routine  M,   J,   K,   E,    H, 
W,   Q,   and  I.     Upon  entry,   the  Level  3  loop  scans  the  Master  Activity  Scan 
Table  (MAST)  from  top  to  bottom  for  a  word  having  an  activity  bit  (A)  present 
and  a  Service  bit  (S)  absent.     If  no  word  can  be  found,   the  Priority  Level  3 
interrupt  (location  X'64')  is  released  and  control  is  returned  to  the  monitor. 
If  a  word  is  found,   the  "A"  bit  is  reset  and  the  control  bit  (C)  is  set  in 
MAST,   and  the  corresponding  Priority  Level  3  routine  is  executed.     The 
last  step  in  this  routine  is  to  reset  its  "C"  in  MAST  and  return  control  to 
the  Level  3  loop  which  scans  MAST  from  the  top  of  the  table  again.     If  a 
routine  suspends  itself  while  waiting  for  I/O  completion,   it  sets  its  "S"  bit 
and  returns  control  to  the  top  of  the  Level  3  loop  for  another  scan  of  MAST. 
Upon  completion  of  I/O  operation,   control  is  eventually  returned  to  the 
routine  via  the  End  Action  Task  and  the  Level  3  loop.     Note  that  if  a  routine 
is  scheduled  (that  is,    its  "A"  bit  is  set  in  MAST),   while  waiting  for  I/O 
service  (that  is,   its  "S"  bit  is  set  in  MAST),   it  is  not  given  control  until 
the  completion  of  I/O  operation.     The  only  Priority  Level  3  routines  that 
may  wait  for  I/O  servicing  are  Routines  H,   I,   and  W. 

To  support  2GC  routines  interrupt  X'69'  is  connected  during  initialization. 
This  interrupt  transfers  to  the  Level  5  control  task  in  Routine  A  which 
then  calls  the  Level  5  executive  routine  MACRO. 

Code  is  present  in  the  main  loop  of  Routine  A,    to  decrement  and  test  the 
software  counter  5MINCT.     When  this  counter  decrements  to  zero,    it  is 
reinitialized  to  the  Level  5  execution  frequency,    OPTIME,    and  the  5MINF 
flag  is  set  to  indicate  to  the  one-half  second  loop  of  Routine  A  that  the 
Priority  Level  5  interrupt,    X'69',    is  to  be  triggered. 
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A  test  on  the  Routine  Q  Scheduled  Flag,    5END,    is  in  the  one-half  second 
loop  of  Routine  A.     When  this  flag  is  set,    the  5END1  flag  is  set  to  indicate 
to  the  Level  5  executive  MACRO,    the  predictor  performance  report  is  to 
be  printed. 

2.6.  1.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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Routine  A  (Executive  Initialization  Loop) 
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Routine  A  (Counter  Pulse  3  Clock  Task) 
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Routine  A  (Main  Loop) 
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Routine  A  (Main  Loop)  (Continued) 
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Routine  A  (Main  Loop)    (Continued) 
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Routine  A  (Main  Loop)  (Concluded) 
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Routine  A  (Level  3  Loop) 
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Routine  A  (End  Action  Task) 
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2.6.2    SUBROUTINE  A5 

2.  6.  2.  1    Purpose 

Executive  routine  for  Level  5  activity. 

2.  6.  2.  2    Relationship 

Subroutine  A5  is  called  from  Routine  A  and  occurs  every  5MINCT  seconds. 

2.6.2.3    Assumption 
None 


2.6.2.4    Approach 

Subroutine  A5  examines  the  MAST  array  to  determine  if  routines  H,   MACRO, 
O,   or  W  have  been  scheduled.     A5  then  calls  the  scheduled  routines. 


2.6.2.5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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Subroutine  A5 
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Subroutine  A5  (Concluded) 
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2.6.3    SUBROUTINE  CHECK 

2. 6. 3. 1  Purpose 

To  return  state  of  CRT  from  RBM. 

2.6.3.2  Relationship 

This  subroutine  is  called  from  Subroutine  CRTOUT  by: 

CALL  CHECK  (A,  B) 
where 

A    specifies  the  byte  to  be  retrieved  from  the  STATE  array. 
B    returns  the  byte  specified. 

Subroutine  CHECK  returns  to  the  calling  routine. 

2.6.3.3  Assumption 
None. 

2.6.3.4  Approach 

Retrieve  the  byte  specified  by  the  A  argument  from  the  STATE  array,    return 
it  to  the  calling  routine  as  argument  B. 

2.6.3.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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f  ENTER  } 

r 

SAVE  REGISTER  7 


I 


GET  CORRECT 
BYTE  FROM  STATE 


RETURN  THE  BYTE 
TO  CALLING 
PROGRAM 


I 


ADJUST  RETURN 
REGISTER 

RESTORE  REGISTER 
7 


f  RETURN^) 


Subroutine  CHECK 
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2.6.4    SUBROUTINE  CRTOUT 


2.  6. 4. 1    Purpose 


Provide  interface  between  CRT  formatting  routine  (RTNK)  and  CRT  DEVICE. 


2.6.4.2    Relationship 

This  subroutine  is  called  by  Routine  A  and  returns  to  the  calling  routine. 

This  subroutine  calls  subroutines:    CSET,    CSTART,    CHECK,    CWRITE, 
and  EXIT. 


2.6.4.3  Assumption 
None. 

2.6.4.4  Approach 

Polls  two  CRTs  and,    if  the  line  is  cleared,    directs  CRT  output. 

2.  6.4.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 


33 


/enter  from  exter- 
nal INTERRUPT  X'68' 


0 


CLEAR  ERROR 
FLAG  FOR  THIS  CRT 


CALL  RBM  TO 
START  OUTPUT 
OF  THIS  CRT'S 
BUFFER 


© 


GET  CRT  LINE 
NUMBER 
L=  CRTNM 


IFLAG=  1 


CALL  RBM  TO 
START  LINE 
NUMBER  L 


SET  ERROR  FLAG 
FOR  THIS  CRT 


CLEAR  CRT  ACTIVE 
FLAG  FOR  THIS  CRT 


YES 


0 


SET  L  = 
OTHER  CRT 
LINE  NUMBER 


0 


Subroutine  CRTOUT 
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2.6.  5    ROUTINE  Al 
2.  6.  5.  1    Purpose 


This  routine  controls  the  execution  of  the  controller  do-loop  by  scheduling 
the  routines  in  the  loop  when  their  functions  are  required. 


2.6.5.2    Relationship 

This  routine  is  entered  once  every  second.     It  represents  the  control 
routine  for  Level  2  and  calls  Routines  O,    P,    R,    T,    V,    and  X.     It  is 
entered  from  Routine  A  every  second  and  exits  to  Routine  A.     The 
coding  of  Routine  N  is  currently  included  in  Routine  Al  and  a  call  to 
Routine  N  is  not  made. 


2.  6.  5.  3    Assumption 
None. 

2.6.5.4    Approach 

The  Level  2  Executive  Routine  decides  whether  a  Priority  Level  2  routine  is 
to  be  entered.     If  system  parameters  and/ or  flags  indicate  that  the  routine  is 
required,   it  is  scheduled,   otherwise  it  is  not  entered  for  that  pass  through 
the  loop.     The  loop  is  executed  completely  IL2  (currently  4)  times.     During 
each  pass,  a  scheduled  routine  handles  32  controllers.     Before  each  pass, 
the  Level  2  Executive  calls  the  unpack  subroutine  UPBL2  to  unpack  the  bit 
arrays  for  32  controllers.     At  the  finish  of  the  loop,   subroutine  PKBL2  is 
called  to  pack  those  bit  arrays  that  may  have  changed. 
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The  Level  2  Executive  routine  also  supplies  common  inputs  to  the  routines 
of  the  loop,   such  as  the  first  controller  number  (ICON)  currently  being 
processed. 


2.6.5.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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CENTER  FROM     ) 
ROUTINE  A     J 


KCTCI  =  NUMBER  OF  CYCLES 
(NCYLC) 


NINITIAL  (STARTUP) 


NSUTC=  NSUTC-IDECR 

(DECREMENT  "STARTUP  TIME  COUNT") 


SUBROUTINE 
CYCLTFKC 


SET  II2S  =  2 

STARTUPF=  1 
(SET  "START  UP 
FLAG") 


KCTCI  =  KCTCI-1 


YES 


KCTF(KCTCI)=  1 
SET  "KTCH  CYCLE 
TIMING  FLAG" 


SUBROUTINE 
CYCLTFKC 


KCTCI  =  KCTCI-1 


YES 


Routine  Al 
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ROUTINE  0 
A-PHASE  GREEN 
RETURN  PROCESSING 


f   EXIT  TO  RTNAj- 


ICON=  0 
IL=  2 


ROUTINE  UPBL2 
BIT  UNPACK 


ROUTINE  R 
TRANSFORMATION 
FROM  COMPUTER 
CONTROL  TO  STANDBY 


ROUTINE  T 
INTERVAL  ADV- 
ANCE ROUTINE' 


<t> 


YES 


Routine  Al  (Continued) 
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ROUTINE  V 
CRITICAL  INTER- 
SECTION ROUTINE 


YES 


ROUTINE  X 

SEMI-ACTUATED 

CONTROLLER 


3 


SET  APO(l)=  IADVP(I) 
IADVP(I)=  0 
1=  1,  32 


f  EXIT  TO  RTNA  \ 


YES 


IL2=  IL2  +  1 

1 

ICON=  ICON  +  32 

Routine  Al  (Concluded) 


39 


2.6.6    SUBROUTINE  BUFFERIN /OUT 

2.6.6.  1    Purpose 

Input  and  output  of  a  buffer. 

2.6.6.2  Relationship 

This  subroutine  is  called  from  subroutines  PREDICT  and  PRPRED  by: 
CALL  BUFFERIN  (CH,    F,    BUF,    L,    RS,    NT) 

where: 

CH  =  I/O  channel  number 

F  =  format  (binary  or  BCD) 

BUF  =  the  array  to  be  transferred 

L  =  the  length  of  array  BUF  (in  bytes) 

RS  =  return  status.     (Was  transfer  successful?) 

NT  =  number  of  bytes  transferred. 

2.6.6.3  Assumption 
None. 

2.6.6.4  Approach 

Subroutine  BUFFERIN  and  BUFFEROUT  provide  two  different  entry  points  to 
the  same  routines.     They  differ  only  in  that  BUFFERIN  sets  the  read  code, 
BUFFEROUT  the  write  code.     The  address  with  the  data  buffer  to  be  used 
along  with  the  byte  count  is  then  fetched  and  the  system  I/O  routine  called. 
The  subroutine  then  returns  to  the  calling  routine. 

2.6.6.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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Renter 

^ 

M ENTER               1 

V  BUFFERIN 

J            Vbufferout   J 

\ 

1 

SET  READ 

SET 

CODE 

WRITE  CODE 

SET 

STATUS  WORD 

\ 

SET  UNIT  NO. 

AND  KEY  NO. 

TO  ZERO 

1 

GET  BUFFER 

ADDRESS 

i 

GET  WORD 

AND  BYTE 

COUNT 

\ 

CALL 

INPUT/ 

OUTPUT 

* 

SET  I/O 

COMPLETE 

,  \ 

( 

RETURN     J 

Subroutine  BUFFERIN  /OUT 
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2.  6.  7    SUBROUTINE  PKBL2 

2.6.  7.  1    Purpose 

Subroutine  PKBL2  packs  32  values  of  bit  data  of  the  pertinent  bit  arrays 
which  correspond  to  the  current  32  controllers  being  processed.     It  also 
packs  certain  byte  arrays  that  are  used  in  more  than  two  Level  2  routines, 
so  to  alleviate  constant  unpacking  and  packing  of  these  particular  byte 
arrays. 


2.6.7.2    Relationship 

This  subroutine  is  called  from  Routine  Al  by: 
CALL  PKBL2 

This  subroutine  is  entered  once  per  second  for  each  group  of  32  controllers. 
For  124  controllers,    it  would  be  entered  four  times.     The  subroutine  is  part 
of  the  Level  2  controller  Do- Loop.     It  is  the  last  routine  called  in  this  Do- 
Loop  and  exits  to  Routine  Al. 


2.6.7.3    Assumption 
None. 


42 


2.  6. 7. 4    Approach 

The  common  blocks  that  contain  the  packed  data  required  for  Level  2  routines 
are  referenced  in  this  program  as  well  as  the  common  blocks  BITL2  and 
BYTL2  which  contain  the  unpacked  data.     BITL2  and  BYTL2  are  referenced 
by  the  Level  2  routines  and  are  in  FORTRAN  accessible  word  format.     For 
each  bit  array  required  by  the  Level  2  routines,    a  call  is  made  to  PKBIT 
which  packs  32  bits  starting  an  index  corresponding  to  the  current  controller 
being  processed.     For  each  byte  array  required,    a  call  to  PKBYT  is  made 
to  pack  the  byte  data  associated  with  the  current  32  controllers. 


2.6.7.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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c 


ENTER  FROM 
ROUTINE  Al 


I 


) 


CALL  PKBIT  FOR  THE  FOLLOWING  BIT  ARRAYS 
ADVNH,  APO,  AUTOF,  C1CBP,  CICEF, 
CICSF,  CICTP,  CMALF,  CPAOG,  FSTLF, 
HOLD,  IADVP,  INTIS,  SPLCH,  STRJA, 
STBYD,  TRNSF 


J  =  ICON+1 


i 


CALL  UPBYT 
TO  PACK: 

CUROF(J) 
ENOFF(J) 
Ml  (J) 
WRKOF(J) 


C 


NO 


RETURN  TO  Al 


Subroutine  PKBL2 
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2.6.8    SUBROUTINE  UPBL^ 

2.  6.8.  1    Purpose 

Subroutine  UPBL2  unpacks  32  values  of  bit  data  corresponding  to  the  current 
32  controllers  being  processed.     It  also  unpacks  certain  byte  arrays  that  are 
used  in  more  than  two  routines,    so  that  constant  unpacking  and  packing  of 
these  byte  arrays  is  not  required. 


2.6.8.2    Relationship 

This  subroutine  is  called  from  Routine  Al  by: 
CALL  UPBL2 

Subroutine  UPBL2  is  entered  once  per  second  for  each  group  of  32  controllers. 
For  124  controllers  it  would  be  entered  four  times.     The  subroutine  is  part  of 
the  Level  2  controller  Do- Loop.     It  is  the  first  subroutine  called  in  this  Do- 
Loop  and  exits  to  Routine  Al. 


2.6.8.3    Assumption 
None. 
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2. 6. 8. 4    Approach 

The  common  blocks  that  contain  the  packed  data  required  for  Level  2  routines 
are  referenced  in  this  subroutine  as  well  as  the  common  blocks  BITL2  and 
BYTL2  which  will  contain  the  unpacked  data.     BITL2  and  BYTL2  are  refer- 
enced by  the  Level  2  routines  and  are  in  FORTRAN  accessible  word  format. 
For  each  bit  array  required  by  the  Level  2  routines,    a  call  is  made  to  UNBIT 
which  unpacks  32  bits  starting  at  a  specified  bit  location.     For  each  byte 
array  required,    a  call  to  UPBYT  is  made  to  unpack  all  data  associated  with 
the  current  32  controllers. 


2.6.8.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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CENTER  FROM    "\ 
ROUTINE  Al      J 


CALL  UNBIT  FOR  THE  FOLLOWING  BIT  ARRAYS: 
ADUNM,  AOG,  APO,  AUTO,  CICBP,  CICEF, 
CIESF,  CICTF,  CTODF,  CMALF,  CPAOG, 
FSTCF,  GAI,  HOLD,  IADVP,  INTIS,  SEMSK, 
SPLCH,  STRTA,  STBYD,  TRNSF 


1=  1 


J=ICON+l 


CALL  UPBYT  TO  GET: 

CUROF(J) 
ENOFF(J) 
Ml  (J) 
WRKOFCJ) 


K=l 


1=1+1 


Subroutine  UPBL2 
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2.  6.  9    SUBROUTINE  UPKMC 

2.  6.  9.  1    Purpose 

The  purpose  of  UPKMC  is  to  unpack  the  leftmost  17  bits  of  KMCSP. 

2.  6.  9.  2    Relationship 

This  routine  is  called  by: 
CALL  UPKMC 

The  subroutine  is  called  every  one  second  by  Routine  N. 

2.  6.  9.  3    Assumption 

None. 

2.6.9.4    Approach 


Each  bit  of  KMCSP  is  examined.     If  the  bit  is  a   "1",   KMCS(I)  is  set  to  one. 
Otherwise  it  is  set  to  zero. 


2.6.9.5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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Q  UPKMC  ) 

\ 

R3=  KMCSP 
1=  1 

I 

KMCS(I)=  0 

y^^y^-K  ^  n\ 

"Yno 

KMCS(I)=  1 

1 

^/|     17XNO 

1=1  +  1 

fYES 

('return') 

Subroutine  UPKMC 
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2.  6.  10    ROUTINE  B 

2.  6.  10.  1    Purpose 

Routine  B  examines  the  vehicle  detector  arrays  for  an  indication  of  vehicle 
presence.     From  this  indication,   the  routine  records  the  start  time  and 
duration  (presence)  of  each  vehicle  passage.     Whenever  an  end  of  vehicle 
is  sensed,  the  Once  per  Vehicle  Routine,   Routine  C,   is  performed.     Changes 
in  detector  states  are  ignored  if  the  state  does  not  remain  stable  for  at 
least  2  sampling  times  (1/16  of  a  second). 


2.6.10.2    Relationship 

This  routine  is  entered  every  1/32  of  a  second  from  Routine  A  and  returns 
to  that  routine. 


2.6.10.3  Assumption 

Routine  A  will  schedule  Routine  B  at  a  frequency  fast  enough  to  allow 
accurate  computation  of  occupancy. 

2.6.10.4  Approach 

This  routine  is  entered  every  1/32  of  a  second  from  the  Executive  Routine, 
Routine  A.     All  detector  data  is  stored  by  the  Executive  Routine  in  an  array 
of  packed  words,   one  bit  per  detector.     This  routine  will  unpack  the  de- 
tector words  and  identify  those  detectors  that  have  changed  state  since  the 
last  pass  through  this  routine.     Those  detectors  that  have  had  a  change  of 
state  are  checked  to  determine  whether  the  change  indicates  the  beginning 
of  a  vehicle  or  the  end  of  one.     To  reduce  the  effect  of  spurious  pulses, 
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logic  is  used  to  indicate  a  "change  of  state"  only  when  the  output  presence 
indications  have  maintained  the  same  state  for  at  least  two  scan  periods. 

Each  time  an  end  of  vehicle  is  identified,  the  routine  computes  the  total 
time  that  the  vehicle  spent  in  the  particular  detectors  field  of  sensitivity; 
that  is,  the  presence  in  seconds. 

When  an  end  of  vehicle  pulse  is  processed,  this  routine  enters  the  Once  per 
Vehicle  Routine,  Routine  C.     After  Routine  C  is  completed,   control  is  re- 
turned to  this  routine  and  the  next  detector  indicating  a  change  in  state  is 
processed.     After  all  detectors  have  been  examined,   and  all  those  needing 
processing  have  been  processed,   control  is  returned  to  the  Executive 
Routine. 

The  technique  used  in  Routine  B  is  a  word  oriented  quadruple  buffer  scheme. 
Three  buffers  are  required  to  determine  if  changes  in  detector  states  re- 
main stable  for  2  sampling  times.     The  fourth  buffer  allows  new  data  to  be 
input  from  the  MUX  while  the  other  three  buffers  are  being  processed. 

Upon  entry,  the  routine  initializes  counters  and  examines  the  Detector 
Buffer  Pointer  (DBP)  to  determine  which  three  buffers  are  to  be  processed. 
The  first  step  is  to  determine  if  two  changes  of  state  have  occurred  in  the 
past  2  samples  for  a  particular  bit  (detector)  in  the  Ith  word.     If  two  changes 
of  state  have  occurred  (indicating  a  spike  or  a  gap),  the  change  in  this 
particular  bit  is  ignored  by  complementing  the  respective  bit  in  the  previous 
(middle)  data  word  and  W.     W  is  the  exclusive  OR  (denoted  by  the  symbol©) 
of  the  previous  data  word  and  data  word  two  samples  ago,   and  indicates  bit 
positions  in  which  the  previous  changes  of  state  lie. 

Regardless  of  whether  two  changes  of  state  have  occurred  or  not,  W  is 
tested  to  determine  if  at  least  one  bit  has  changed  state.  If  there  is  at 
least  one  bit  with  a  change,   indicated  by  a  logical  "one",   each  of  the  4  bytes 
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that  comprise  W  are  examined  to  see  if  they  contain  any  "ones".     If  a 
particular  byte  X  is  not  zero,  the  detectors  corresponding  to  the  nonzero 
bits  of  X  are  isolated.     If  TSTART(K)  is  positive,   the  change  in  state  of 
the  Kth  detector  represents  the  beginning  of  a  vehicle  presence  and  the 
present  real  time  is  stored  in  TSTART(K)  with  a  negative  sign.     If 
TSTART(K)  is  negative,  the  change  in  state  of  the  Kth  detector  represents 
an  end  of  vehicle  presence,    hence  the   pulse  duration  TT  is  computed,   the 
present  real  time  is  stored  in  TSTART(K)  with  a  positive  sign,   and  the 
Once  per  Vehicle  Routine,   Routine  C,   is  performed.     After  all  the  detectors 
with  changed  states  in  byte  X  have  been  processed,   the  remaining  bytes  in 
W  are  examined.     After  all  4  bytes  in  W  have  been  examined  and  processed, 
when  required,   the  next  word  from  the  three  vehicle  detector  buffers  is 
analyzed.     When  the  entire  buffer  has  been  analyzed,  the  routine  is  exited. 


2.6.  10.6     Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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C    ENTER  FROM 
V   ROUTINE  A 

) 

1 

Kl  =  0 
1=  0 

YES 


w=pi(iy>P4(n 

A=P4(l)rP3(l) 
A=AHW 


NO 


W=P2(I)'#P1(I) 
A=P1(I)PP4(I) 
A=AnW 


YES        YES 

*T* 


P4(l)=  P4(I)«A 

W=W*»A 


© 


Pl(l)=PKIX'rA 

W=W?A 


© 


1=1  +  2 


©     © 


Routine  B 
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w 

A  - 
A  - 

-  P4(I)©P3(I) 

:    P3(l)OP2(l) 

A    W 

YES 


P3(l)  =   P3(l)  +  A 
W  =  W  +  A 


W  =  P3(I)©P2(I) 
A  =  P2(l)OPKI) 
A  -  A   W 


YES 


P2(l)  -   P2(l)  +  A 

W  =  W  +  A 


YES 


Kl  - 
Kl+32 


J-  -4 


X  =  BYTEU+4)  OF  W 


YES 


CIRCULAR  SHIFT  X 
RIGHT  8  BITS 
L  =  8(4+J) 


J  =  J+l 


© 


0 


© 


Routine  B  (Continued) 
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TSTART(K)  = 
RTC  11(80000000) 


16 


K  =  Kl  +L 


KNEW  --.  K 


©     © 


YES 


/VY 


A  =  TSTART(K)       (7FFFFFFF 
TT  =  RTC  -  A 
TSTART(K)  =  RTC 


16 


ROUTINE 
C 


YES 


Routine  B  (Concluded) 


I 

CEXIT  TO      """N 
ROUTINE  A    J 
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2.6.  11    ROUTINE  C 

2. 6. 11.  1    Purpose 

Routine  C  accumulates  raw  car  counts,   raw  occupancy  and  raw  speed,   cor- 
rected for  bias,   for  each  detector. 

2.6.11.2  Relationship 

This  routine  is  asynchronous.     It  is  entered  once  per  vehicle  per  detection, 
i.  e. ,   each  time  a  detector  senses  the  end  of  a  vehicle.     This  routine  is 
called  by  Routine  B  and  returns  to  that  routine. 

2.6.11.3  Assumption 

Error  checking  for  failed  detectors  is  performed  by  Routine  E. 

2.  6.  11.4    Approach 

The  technique  used  in  Routine  C  is  detector  oriented.     Whenever  an  end  of 
vehicle  is  sensed  in  Routine  B,   Routine  C  is  entered,  and  upon  completion, 
control  is  returned  to  Routine  B. 

After  the  Detector  Obstruction  Flag,   DOF(K),   has  been  reset,  the  link 
number  J  corresponding  to  detector  number  K  is  determined.     If  there  is  a 
defective  detector  on  this  link,   the  routine  is  exited.     Otherwise,  the  cor- 
rected pulse  length  (TTC),  the  raw  occupancy  (RAWOC),   and  raw  speed 
(RAWSP),   are  computed  for  this  detector.     If  detector  K  is  the  only  detector 
on  link  J,  the  routine  is  exited. 
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Three  additional  arrays  for  each  detector  have  been  added  to  the  data  base 
in  the  second  generation  software  system  to  accumulate  raw  data  for  the 
second  generation  surveillance  Routines  (RTN5  and  RTNFT).     Routine  C 
loads  the  raw  count  accumulator  (CC2P),  the  raw  speed  accumulator  (RAWSPP), 
and  the  raw  occupancy  accumulator  (RAWOCPP)  once  per  vehicle.     Routines 
RTN5  and  RTNFT  process  this  data  every  5MINCT  seconds  to  obtain  average 
link  volume,   average  link  speed,  average  link  occupancy,   free  flow  link 
volume,   free  flow  link  speed,  and  free  flow  link  occupancy.     After  each 
accumulator  is  processed  by  RTN5,   it  is  reset  to  zero. 

Upon  completing  the  processing  of  the  present  detector  the  routine  exits  to 
the  Detector  Input  Data  Interpretation  Routine,   Routine  B. 


2.6.11.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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CENTER  FROM  A 
ROUTINE  B      J 


RESET  DETECTOR 
OBSTRUCTION  FLAG; 
I.E.  DOF(K)  =  0 


YES 


LOOK  UP  LINK  NUMBER: 
I.E.  J  =  DWL(K) 


YES 


jNO 

CC2(K)  =  CC2(K)  +  1 
TTC  =  TT  -TD 
RAWOC(K)  =  RAWOC(K) 

+  TTC 
RAWSP(K)  =  RAWSP(K) 

+  (1/TTC) 

^ 

(EXIT  TO       ^ 
ROUTINE  B  J 


Routine  C 
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2.6.  12    ROUTINE  E 


2. 6. 12. 1    Purpose 

This  routine  identifies  detector  failures  and  informs  the  operator  as  to  the 
location  and  type  (detector  electronics,    detector  obstruction  or  communi- 
cations).    It  sets  flags  to  prevent  use  of  information  emanating  from  these 
locations,   and  updates  raw  link  count,   raw  link  occupancy  and  raw  link 
speed. 


2.  6.  12.  2    Relationship 

This  routine  is  entered  once  per  cycle  for  each  group  of  controllers  having 
the  same  cycle  length.     It  is  called  by  the  Executive  Routine  in  Level  3  and 
exits  to  that  routine.     It  calls  the  CRT  Failure  Table  Update  Subroutine  of 
Routine  K  and  also  calls  Routine  F. 


2.  6.  12.  3    Assumption 


None. 


2.6.12.4    Approach 

This  routine  first  identifies,  from  the  Kth  cycle  start  flag,   which  set  of 
detectors  (grouped  by  link  for  each  controller)  is  to  be  checked.     Detector 
numbers  are  indexed  and  if  one  belongs  to  the  set  under  consideration,   failure 
status  for  each  detector  is  determined  in  the  following  manner. 
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If  present  pulse  duration,   IPLS,   exceeds  a  specified  interval,   TT7,   detector 
failure  is  indicated  and  the  failed  detector  flag  is  set.    If  TT3  <IPLS<TT7, 
"possible  detector  obstruction"  flag  is  set,   where  TT3  is  related  to  the 
maximum  cycle  length  encountered  in  the  system. 

If  a  present  gap  duration,  GAP,   exceeds  some  multiple,   M,   of  normal  gap 
length,  Tn,   and  is  also  greater  than  a  specified  interval,    18  0  sees,   i.  e.  : 

GAP  >MTn 

and 

GAP  >180  sees, 

and  if  the  "possible  detector  obstruction"  flag  has  been  set,   detector  ob- 
struction is  identified.     The  "detector  obstruction"  flag  is  then  set. 

If  the  "possible  detector  obstruction"  flag  is  not  set  and  inequality  (1)  holds, 
the  operator  is  notified  that  communication  failure  and  the  "communication 
failure"  flag  is  set.     The  detector  is  also  reported  as  failed  if  the  count  is 
greater  than  a  threshold,   Nc. 

If  no  failure  is  identified,  the  detector  raw  car  count  is  added  to  the  corres- 
ponding link  count  and  the  detector  raw  occupancy  count  is  added  to  the  correS' 
ponding  raw  link  occupancy  count.     If  any  failure  on  a  link  is  detected,  a 
MOE  Inactive  Flag  and  a  Failed  Detector  Flag  are  set.     If  the  corresponding 
controller  is  in  standby,  the  MOE  Inactive  Flag  is  also  set. 


2.6.12.5    Listing 


See  Volume  III,    2GCF  Routine  Listings, 
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Routine  E 


61 


YES 


IA  =  IA  -  ND 


0 


SET  CC2(IA)=  0 
RAWSP(IA)=  0 
RAWOC  (IA)  =  0 


YES 


RESET  TMOEF  FLAG 
MOEIF(IL)  =  2 


YES 


MOEIF(IL)  = 
MOEIF(IL)-  1 


CALL  ROUTINE  F 


IA=  IA-  1 


Routine  E  (Continued) 
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YES 


IS  (DETECTOR  FAILURE  FLAG)  (IA)  U 

(DETECTOR  OBSTRUCTION  FLAG)  (IA) 

U(DETECTOR  IN  STANDBY  FLAG)  (IA) 

^COMMUNICATION  FAILURE  FLAG)  (IA)  =  1? 

I.E.,  IS  I  FAIL  (IA)  U  D0F  (IA)  U  DIS(IA)  U 

CMMAL  (IA)  =  1? 


YES 


IPLS  = 

LABS(TSTRTdA)  ) 


IPLS 


=  REAL  TIME 
CLOCK  -  IPLS 


GAP  =  REAL  TIME 
CLOCK-TSTRT(IA) 


YES 


YES 


GAP  =  GAP  + 
FULL  CLOCK 
SCALE 


IPLS  =  IPLS  +  FULL 
CLOCK  SCALE 


RESET  (POSSIBLE 
DETECTOR  OBSTRUC- 
TION FLAG)  (IA)  ; 
I.E.  PDOF(IA)  =  0 


© 


YES 


SET  (POSSIBLE 
DETECTOR 
OBSTRUCTION 
FLAGHIA);  I.E. 
PDOF(IA)  =  1 


© 


© 


Routine  E  (Continued) 
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RESET  (POSSIBLE 

DETECTOR 

OBSTRUCTION 

FLAG)  (IA); 

I.E.  PDOF(IA)  =  0 


SET  (COMMUNICATION 
FAILURE  FLAG)  (IA)  ; 
I.E.  CMMAL  (IA)  =  1 


STORE  DETECTOR 
NUMBER  INTO  COMMUNI 
CATIONS  FAILURE 
TABLE  (CMTAB) 


RESET  (POSSIBLE 
DETECTOR 
OBSTRUCTION 
FLAG)  (IA);    I.E. 
PDOF(IA)  =  0 


SET  (DETECTOR 
OBSTRUCTION 
FLAG)  (IA)  ; 
I.E.  DOF  (IA)  =  1 


0 


INCREMENT  FAILED 
COMMUNICATIONS  COUNT, 
CMLNG  =  CMLNG  +  1 


SET  DFAIL(IL)  =  1 


© 


SET  TM0EF  FLAG 


6 


SET  (DETECTOR 
FAILURE  FLAG)  (IA); 
I.E.  DFAIL(IA)  =  1 


STORE  DETECTOR 
NUMBER  INTO 
DETECTOR  FAILURE 
TABLE  (DTTAB) 


INCREMENT  FAILED 
DETECTOR  COUNT: 

DTLNG  =  DTLNG  +  1 


0 


6  © 


Routine  E  (Continued) 
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RLNKC  =  RLNKC  +  CC2CIA) 


I 


LNKSP  =  LNKSP  +  RAWSP(IA) 


i 


RLNK0  = 
RLNKJ0  +  RAWJ0C(IA) 


© 


Routine  E  (Concluded) 
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2.  6.  13    ROUTINE  F  (LINK  VOLUME,   OCCUPANCY  AND  SPEED 
EVALUATION) 


2.  6. 13. 1    Purpose 

Routine  F  accumulates  link  car  count,   link  occupancy  and  link  speed.     It 
also  computes  volume,   occupancy  and  average  speed,   by  link,   and  smoothes 
these  values  with  past  data.     If  a  link  is  inactive  due  to  failures,   stored 
typical  volume  and  occupancy  values  are  used  for  display. 


2.6.13.2    Relationship 

This  routine  is  entered  once  per  cycle  for  each  link.     It  is  called  by  Routine 
E  and  returns  to  that  routine. 


2.  6.  13.  3    Assumption 

Error  checking  for  failed  detectors  is  performed  by  Routine  E. 

2.6.13.4    Approach 

For  the  link  being  processed,  the  routine  first  determines  the  number  of  de- 
tectors on  the  link  and  the  cycle  length  of  its  controller.     If  the  link  is  active, 
the  following  computations  are  made: 

•  •   Raw  link  count,    raw  link  occupancy  and  link  speed  are 

accumulated. 

•  Volume  in  vehicles /hour,   occupancy  in  percent  and  average 
speed  in  miles /hour  are  computed  and  smoothed. 
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If  the  detector  on  a  link  is  not  active  (failed),    stored  history  values  of  volume 
and  occupancy  are  accumulated. 


2.6. 13. 5 

See  Volume  III,    2GCF  Routine  Listings, 
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VOL(IL)=  VHIST(IL) 


VACC(IL)=  VACC(IL)  + 

fVHISTdL)   *KCL(IB)  1 
L  3600  J 


AHCC(IL)=  AHIST(IL) 


0ACC(IL)=  0ACC(IL)  + 

AHISTdD* 

KCL(IB) 


SBARdL  )=     <V1 
3600 
rVHIST(lL)  ] 

Lahistul)  J 


SACC(IL)=  SACC(IL)  + 

VHIST(IL) 

3600     ■      J 
KCL(IB)   *NI 
AHISTdD  *LL 


c 


ENTER  FROM 
ROUTINE  E 


3 


VPHT=^P 

VACC(IL)  =  VACCUU  +  VPHT 


KUJI      LL*NI 


OACC(IL)=  0ACC(IL)+  PCOT 


SACC(IL)=  SACCdD  +  LNKSP 


VPHT=  VPHT* 


36QQ, 


KCL(IB) 
VOL(IL)  =  VOL(IL)  +  KVPH^PHT  -  VOL.(ID] 


PCOT 


PCOT 


KCL(IB) 
AHCC(IL)  =  AHCC(IL)  +  KPCO  [PCOT-AHCCdD] 


YES 


ST 


KVI  *  LL*  LNKSP 
RLNKC 


SBARdL)  =  SBARdL)  +  KSP  [ST  -  SBAR(IL)] 


C 


EXIT  TO  ROUTINE  E 


D 


Routine  F 
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2.6.  14    ROUTINE  H  (15-MINUTE  PERFORMANCE  AND  STATUS  REPORT) 

2.6.14.1  Purpose 

Routine  H  provides  15-minute  performance  and  status  reports  on  the  line 
printer  for  the  UTCS  system.     These  reports  contain:    the  intersection 
status  (Figure  3);  a  log  of  all  operator  entered  control  panel  system  requests 
made  during  the  last  15  minutes  (Figure  4);  the  number  of  failures  in  the 
system;  controller  and  detector  status  (Figure  5);  system  status  by  section 
(Figure  6);  and  UTCS  system  performance  by  link  (Figure  7).     In  addition, 
it  records  on  magnetic  tape  all  the  Measures  of  Effectiveness  (MOEs)  at 
15-minute  intervals. 

If  the  Change  Formatting  Subroutine  (HFMT),    which  logs  operator  control 
panel  requests,    finds  the  log  table  filled  it  sets  Routine  H  active  in  order 
to  force  a  print  out  of  the  log  table. 

2.6.14.2  Relationship 

The  Change  Formatting  Subroutine  (HFMT)  is  scheduled  asynchronously 
from  Routine  M.     This  routine  is  scheduled  at  Level  3  when  required  by 
Routine  M.     This  routine  is  divided  into  the  following  subroutines  in  the 
FORTRAN  software  which  are  called  by  Routine  H:    CAL15,    CALRL, 
TSTAP,    OUTAP,    PRNTF,    TSTLP,    TIMEH,    DECON,    MHEAD,    STAT, 
STMSG,    and  LKDAT. 

2.6.14.3  Assumption 

This  routine  is  entered  every  15  minutes  on  the  15-minute  mark  and  when 
shutdown  is  requested. 
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2.  6.  14.  4    Approach 


Upon  entry  Routine  H  checks  to  see  if  this  is  a  forced  printout  (log  table 
filled)  and  if  it  is,   will  set  a  flag  so  that  Routine  H  will  exit  after  the  page 
is  printed.     If  it  is  not  a  forced  printout,   a  check  is  made  to  see  if  the 
PRINTOUT  SUPPRESS  button  is  engaged  on  the  control  panel.     If  it  is  en- 
gaged Routine  H  will  begin  processing  link  data.     If  the  printout  is  not  to 
be  suppressed,   a  check  is  made  to  see  if  there  is  anything  in  the  table.     If 
the  table  is  empty,   Routine  H  begins  processing  the  Failure  Status  page.     If 
there  is  something  to  be  printed  out,   a  flag  is  set  so  that  Routine  H  will 
begin  processing  the  Failure  Status  page  after  the  log  has  been  printed. 

Routine  H  begins  by  calling  subroutine  OUT2G  to  output  the  Intersection 
Report  (Figure  3).     Following  this,    Routine  H  begins  processing  the  Failure 
Status  page  by  checking  to  see  if  there  are  any  failures  in  the  failure  table 
(FAILTAB).     If  there  are  none,    Routine  H  begins  processing  the  Controller 
Status  page  (Figure  5).     If  there  are  failures,    the  equipment  type  and  num- 
ber,   the  time  and  day  of  the  failure,    and  whether  the  operator  has  taken 
action  in  response  to  the  failure  is  printed  out.     A  flag  is  set  so  that  Routine 
H  will  begin  processing  the  Controller  Status  page  after  the  Failure  Status 
page  has  been  output. 

Routine  H  checks  the  status  of  all  the  controllers  in  the  system.     It  creates 
a  list,    in  increasing  numerical  order,   of  the  controllers  that  are  under 
critical  intersection  control,   have  been  selected  for  critical  intersection 
control  but  not  operating  as  such  (inhibited  CIC),   are  in  standby,   and  those 
that  have  failed.     It  prints  out  this  list,   if  it  is  not  empty,   as  the  Controller 
Status  page  and  then  proceeds  to  process  the  Detector  Status  page. 

The  Detector  Status  page  is  processed  in  a  way  similar  to  the  Controller 
Status  page.     A  list  is  created  in  increasing  numerical  order,   of  those 
detectors  that  are  in  stand-by,   have  communication  failures,   and  those  that 
have  failed.     It  prints  out  this  list,   if  it  is  not  empty,   as  the  Detector  Status 
page  and  then  proceeds  to  process  the  System  Status  page  (Figure  6). 
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For  each  section  the  actual  mode  (TOD,   STBY,   etc.  )  and  the  time  it  was 
imposed,  the  desired  mode,  the  pattern  number,   number  of  CIC  intersections 
in  operation,   number  of  failed  detectors,   and  number  of  failed  controllers 
are  determined  and  printed  out  as  the  UTCS  System  Status  page. 

Routine  H  processes  link  data  every  15-minutes  regardless  of  the  state  of 
the  PRINTOUT  SUPPRESS  button  on  the  control  panel.     For  each  link,   per- 
cent occupancy  (OPC),   average  speed  (AVSP)  and  travel  time  (TRTM)  are 
calculated.     Accumulated  daily  volume  (VDAY),   accumulated  daily  occupancy 
(ODAY),   and  accumulated  average  daily  speed  (SDAY)  are  updated.     The 
arrays  used  for  the  15-minute  accumulations  of  volume  (VACC),   speed 
(SACC)  and  occupancy  (OACC)  are  set  to  zero.     The  MOEs  are  collected 
for  each  link  and  placed  into  the  tape  buffer  (TBUFF).     Any  link  that  had 
nominal  performance  during  the  interval  since  the  last  15-minute  report  is 
flagged  by  setting  the  sign  bit  of  the  link  number  halfword  that  is  put  onto 
tape.     Out  of  tolerance  links  are  determined  by  performing  two  checks:    the 
absolute  values  of  the  difference  between  current  accumulated  volume  plus 
weighted  occupancy  and  stored  (history)  volume  plus  weighted  occupancy  is 
computed.     If  this  difference  and  the  percent  difference  exceed  preselected 
threshold  values,  the  link  is  considered  out  of  tolerance. 

After  all  the  links  are  processed,    Routine  W  is  scheduled  and  a  check  is  made 
of  the  PRINTOUT  SUPPRESS  button  on  the  control  panel.     If  the  printout  is  not 
to  be  suppressed,    Routine  H  prints  out  the  UTCS  System  Performance  Report 
(Figure  7).     For  each  link  that  is  out  of  tolerance  the  following  information  is 
printed  out: 

link  number 

history  volume 

history  percent  occupancy 

current  cumulative  volume  for  this  15  minute  period 

current  cunulative  percent  occupancy  for  this  15  minute  period 


77 


•  average  speed 

•  average  travel  time. 

In  addition,   if  the  controller  associated  with  the  link  is  not  on-line  an  "*" 
is  printed  next  to  the  link  number.     If  there  is  a  failed  detector  on  the  link, 
an  "H"  is  printed  next  to  the  link  number  and  all  MOEs  except  volume  and 
occupancy  are  set  to  zero  on  both  the  printout  and  the  tape. 

Finally,   a  check  is  made  to  see  if  it  is  midnight.     If  it  is,   Routine  I  is 
scheduled.     A  check  is  made  to  see  if  it  is  shutdown.     If  it  is,   Routine  I  is 
scheduled.     Routine  H  then  exits. 

Routine  H  (Subroutine  CTPSRT)  has  been  modified  to  print  the  current  signal 
timing  plans  in  effect  in  the  UTCS  network.     The  report  contains  the  con- 
troller offsets  for  A,   B,   and  C -phase  as  well  as  the  cycle  length  and  sub- 
network number.     If  a  controller  is  not  in  a  section  whioh  is  in  the  Traffic 
Responsive  Mode,   the  subnetwork  number  is  printed  as  zero. 

Because  the  BPS  capability  has  been  deleted  from  the  second  generation 
system,   the  associated  BPS  reports  have  been  deleted  from  Routine  H. 

The  Change   Formatting  Subroutine  (HFMT)  is  contained  within  Routine  H. 
It  is  called  by  Routine  M  to  log  control  panel  system  requests.     For  each 
system  request  the  following  information  is  logged:    Time  of  Change,   Type 
(system,    section,    controller,    detector,    detector  communications),   Number, 
Change  (standby,   manual,   time-of-day,   traffic  responsive,   history  record 
on,   history  record  off,    split,   offset,   CIC  on,   CIC  off,   failure  repair,   on 
line,   manual  extension).     In  addition,   if  a  manual  pattern  change  was  re- 
quested,  the  extension  is  logged.     The  change  table  (CHGTABLE)  is  de- 
signed to  hold  44  requests.     When  this  table  is  filled  Routine  H  is  set  active 
in  order  to  print  out  the  table. 

2.6.  14.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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SUBROUTINE 
RTNH 


GET  DATE  AND  TIME, 
STORE  INTO  HEADER. 
SAVE  PREVIOUS  DAY'S 
DATE  FOR  ROUTINE  1 


STORE  TIME  OF  START- 
UP FOR  ROUTINE  1. 
CHANGE  INSTRUCTION 
SO  THAT  THIS  IS  DONE 
ONLY  ON  FIRST  PASS. 


DEDICATE 
LINE  PRINTER 


BIND  =  6 


SET: 

LCNT      = 

0 

PAGM     = 

0 

BIND       = 

1 

YES 


STORE  HEADER 
LINES  INTO  LPBUF 


BIND  =  BIND  +  1 


Routine  H 
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FORMAT  CHANGE  TABLE 
DATA  INTO  LPBUF 


CTABL  (5*1)   GOES 
UNDER  TIME  HEADING 
CTABL  (5*1+1)   GOES 
UNDER  TYPE  HEADING 
CTABL  (5*1+2)   GOES 
UNDER  NUMBER  HEADING 
CTABL  (5*1+3)   GOES 
UNDER  CHANGE  HEADING 
CTABL  (5*1+4)   GOES 
NEXT  TO  CHANGE 


NO 


OUTPUT  LPBUF 
TO  LINE  PRINTER 


SET  SERVICE  BIT  FOR 
ROUTINE  H 


YES 


MPOKY  =  0 


BIND  =  BIND  +  1 


BIND  =  6 


C 


EXIT  TO  ROUTINE  A 


D 


Routine  H  (Continued) 
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FILL  ENTIRE 
LPBUF  WITH 
BLANKS 


INITIALIZE 
PARAMETERS 
SET  INDEX  FOR 
ROUTINE  H  END 
ACTION 


FILL  FIRST 
FOUR  LINES 
OF  LPBUF 
WITH  BLANKS 


JOPT=  2 


STAT 

SUBROUTINE 
JOPT,  IERR 


(return) 


Routine  H  (Continued) 
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RESET  BRANCH 

INDEX 

BIND  =  1 


SET  INDEX  FOR 
ROUTING  1  END  ACTION 


RELEASE 
LINE  PRINTER 


,YES<^MIDNIGHT? 


YES 


SCHEDULE  ROUTINE  1 


c 


EXIT  TO  ROUTINE  A 


) 


Routine  H  (Concluded) 
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2.6.15    SUBROUTINE  CAL15 

2.6. 15. 1  Purpose 

Subroutine  CAL15  dedicates  the  line  printer  making  the  system  available 
to  print  the  15-minute  report. 

2.6.15.2  Relationship 

This  subroutine  is  called  by: 
CALL  CAL15 

The  subroutine  is  called  from  routines  H  and  I.     It  returns  to  the  calling 
routine. 

2.6.15.3  Assumption 
None. 

2.  6.  15.4    Approach 

This  subroutine  is  called  only  by  Routine  H  in  Priority  Level  3  and  is 
therefore  not  required  to  be  re-entrant.     It  calls  on  the  Real-Time  Batch 
Monitor  (RBM)  to  dedicate  the  line  printer. 

2.6.15.5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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C  ENTER    } 


DEDICATE  THE 
LINE  PRINTER, 
MAKING  IT 
AVAILABLE  TO 
PRINT  THE 
15-MINUTE  REPORT 


(return) 


Subroutine  CAL15 
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2.  6.  16    SUBROUTINE  CALRL 


2.6.16.1    Purpose 


Subroutine  CALRL  releases  the  line  printer  after  printing  the  15 -minute 
report. 


2.6.16.2    Relationship 

This  subroutine  is  called  by: 
CALL  CALRL 

This  routine  is  called  from  routines  H  and  I.     It  returns  to  the  calling 
routine. 


2.6.16.3  Assumption 
None. 

2.6. 16.4  Approach 

This  subroutine  is  called  only  by  Routine  H  in  Priority  Level  3  and  is 
therefore  not  required  to  be  re-entrant.     It  calls  on  the  Real-Time  Batch 
Monitor  (RBM)  to  release  the  line  printer. 

2.  6.  16.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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f  ENTER  ) 

ZE_ 

RELEASE  THE 
LINE  PRINTER 


f RETURN  J 


Subroutine  CALRL 
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2.6.17    SUBROUTINE  DECON 

2.6. 17.  1    Purpose 

This  subroutine  takes  a  scaled  binary  number  and  converts  it  to  a  whole 
number  then  converts  the  number  to  a  computer  code  with  a  period  (.  )  in 
the  last  byte. 

2.6.17.2  Relationship 

Subroutine  DECON  is  called  from  Routines  H,    I  and  subroutine  LKDAT  by: 
CALL  DECON  (NUM,    ISF,    IV AL) 

where: 

NUM  =  Scaled  Binary  Number 

ISF  =  Binary  Scale  Factor 

IV AL  =  Converted  number  followed  by  period. 

DECON  calls  ElSRT,    GETBY,    PTBY. 

2.6.17.3  Assumption 
None. 

2. 6. 17.4  Approach 

DECON  calls  Subroutine  E1SRT  to  convert  the  binary  number  to  computer 
code.     Repeated  calls  to  Subroutine  GETBY  and  PTBY  are  used  to  shift  the 
code  one  byte  to  the  left.     The  computer  code  for  a  period  (.  )  is  then  stored 
in  the  eighth  byte.     DECON  then  returns  to  the  calling  routine. 

2.6.  17.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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c 

ENTER  ") 

V 

10=  0 

NUM  =  10*NUM  + 

2**(ISF-1) 

NUM=  NUM/2**ISF 

I 


CALL  E1SRT 
(NUM,  IVAL) 


I 


J=  1 


K  =  J  +  1 


I 


CALL  GETBY 
(IVAL,  K,  L) 


I 


CALL  PTBY 
(IVAL,  J,  L) 


I 


J  =  J  +1 


YES 


■© 


Subroutine  DECON 


© 


CALL  PTBY 

(J PER,  4,  ITEMP) 


CALL  PTBY 
(IVAL,  7,  JTEMP) 


(return) 


Subroutine  DECON  (Concluded) 
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2.6.18    SUBROUTINE  E1SRT 

2.6. 18. 1    Purpose 

This  subroutine  converts  a  binary  number  to  ASCII  or  EBCDIC  code.     The 
converted  numbers  are  stored  into  the  array  IVAL  beginning  with  the  eighth 
byte  in  the  array  and  are  stored  in  reverse  order  with  the  next  character  in 
the  seventh  byte  and  so  on.     The  final  result  will  be  the  converted  number 
stored  right  adjusted  in  the  first  eight  bytes  of  the  array. 


2.6.18.2    Relationship 

This  subroutine  is  called  from  Routines  HFMT,   I,    LKDAT,    OUT2G  and 
STAT  by: 

CALL     E1SRT  (INUM,    IVAL) 

where: 

INUM   =    binary  number  scaled  at  BO 

IVAL    =    converted  characters  from  binary  number. 

in  addition,    the  following  are  found  in  COMMON  block  BLK15: 

CHSET  =  30  defines  ASCII  character  set. 

CHSET  =  40  defines  EBCDIC  character  set. 

NBMCH  =  16  defines  16-bit  machine. 

NBMCII  =  24  defines  24-bit  machine. 

NBMCH  =  32  defines  32-bit  machine. 
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E1SRT  calls  PTBYT,    GETBY. 

2.6.18.3  Assumption 
None. 

2.6.18.4  Approach 

E1SRT  converts  a  binary  number  to  machine  code  (ASCII  or  EBCDIC)  by 
isolating  the  digits,    adding  the  offset  CHSET,    and  storing  the  results  into 
the  IV AL  array.     It  begins  with  the  least  significant  digit  storing  that  in 
the  last  byte.     Upon  completion,    E1SRT  returns  to  the  calling  routine. 

2.  6.  18.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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Q     ENTER       J 

^^ 

NUM=  INUM 
BLANK  OUT 
IVALC4) 


I 


L=8 


+  10 


CALL  GETBY 
CJ,4,  ITEMP) 


I 


CALL  PTBY 
(IVAL,  2,  ITEMP) 


NUM  =  NUM  +CHSET 


I 


CALL  PTBY 
(IVAL,  L,  NUM) 


(      RETURN      \ 


Subroutine  E1SRT 
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2.  6.  19    SUBROUTINE  LKDAT 

2.6.19.1  Purpose 

To  output  link  data,    such  as  accumulated  volume,    occupancy,    average  speed, 
travel  time,    and  delay  into  the  tape  buffer  and  to  the  line  printer. 

2.6.19.2  Relationship 

Called  from  Routine  H  by: 
CALL  LKDAT  (IRET) 

where: 

IRET    =  return  status 

=  0  for  process  complete 

=  1  for  process  remains  to  be  completed. 

2.6.19.3  Assumption 
None. 

2.6.19.4  Approach 

Subroutine  LKDAT  fills  the  buffer  TBUFF  according  to  the  format  specified 
by  Subroutine  OUTAP. 

2.6.19.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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FILL  TAPE  BUFFER 
WITH  ZEROES  (TBUFF) 


STORE  DATE  AND 
TIME  INTO  TBUFF 


SET  INHIBITE  FLAG 


K  =  1 

P  =  I 

KM1 =K  -  1 


YES 


Ni  =  NO.  OF  DETECTORS 


■0 


VDAY(KMl)  = 

VDAY(KMi)  + 

VACC(KMl) 

OPC 

WD9*0ACC(KM1) 

ODAY(KMl)  = 

0DAY(KM1)  +  0PC 

AVSP 

KV1  *  SACC(KM1)*LL 
VACC(KMl)  *NI 

SDAY(KMl)  = 

SDAYCKMD+  AVSP 

TRTM 

KV2  *  D(KM1) 
AVSP 

Subroutine  LKDAT 
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TVPLS  =  VHIST(KMl) 
+  KW*AHIST(KM1) 
MVPLS  =  4  *VACC(KM1) 
+  KW*OPC 


SET  SIGN  BIT  OF  LINK 
NO.  HALFWORD  THAT 
IS  PUT  ONTO  TAPE 


FORMAT  DATA  AND  ^TORl  INTO  TAPE  BUFFlR 


H'vV  0  OF  TBUFF(4*P)=  l< 
HW  1  OF  TBUFF(4*P)  =  VACC(KMl) 
HW  0  OF  TBUFF(4*P+1)=  OPC 
HW  1  OF  TBUFF(4*P+2)=  AVSP 
HW  0  OF  TBUFF(4*P+3)=  TRTM 


HW  1  OF  TBUFF(4*P+3)  =  DELAY(KMl) 


P=  P  +  2 
VACC(KM1)=  0 
SACC(KM1)=  0 
OACC(KMl)=  0 

-» 

<D 


K=  K  +  1 
KM1=  KM1  +  1 


STORE  LINK  DATA  PAGL 
HEADER  INTO  LPBUF. 


NOTNT=  NOTNT-1 
KM1  =  K  -  1 
FORMAT  AND  STORE 
LINK  NUMBER  K 
INTO  LPBUF 


Subroutine  LKDAT    (Continued) 
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PLACE  AN  "*" 
NEXT  TO  LINK 
NUMBER  IN  LPBUF 


PLACE  AN  "H" 
NEXT  TO  LINK 
NUMBER  IN  LPBUF 


YES 


YES 


FORMAT  AND  STORE 
VHIST(KMl) 
AHIST(KMl) 
INTO  LPBUF 


FORMAT  AND  STORE  INTO  LPBUF 


VACC(KM1)=  HW  1  OF  TBUFF 

(4*T) 
OPC  =  HW  0  OF  TBUFF(4  *  T  +  1) 


FORMAT  AND  STORE  INTO  LPBUF 


AVSP  =  HW  1  OF  TBUFF(4  *  T  +  2) 
TRTM  =  HW  0  OF  TBUFF(4  *  T  +  3) 


T=T  +  1 


BIND=  BIND  +  1 
INITIALIZE  TAPE  BUFFER 
POINTER  SET  NEXT  PAGE=  0 


SAVE  VALUE  OF  THE 
BUFFER  POINTER. 
SET  NEXT  PAGE=  1 


PRNTF 
SUBROUTINE 


~Jl~ 

f     RETURN     J 


Subroutine  LKDAT  (Concluded) 
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2.6.20    SUBROUTINE  MHEAD 

2.6.20. 1    Purpose 

This  subroutine  loads  the  main  header  into  LPBUFF. 


2.6.20.2    Relationship 

This  subroutine  is  called  from  Subroutine  STAT  by  the  following  command: 
CALL  MHEAD 

It  calls  STMSG,    PTBY.     It  returns  to  the  calling  routine. 


2.6.20.3  Assumption 
None. 

2.6.20.4  Approach 

Subroutine  MHEAD  copies  the  2  lines  of  the  main  header  into  the  line 
printer  buffer  (LPBUFF). 

2.6.20.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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C   ENTER  J 


IRl  =  44 
IOPT  =  2 
NBYTE  =  48 


I 


CALL  STMSG 

(IOPT,IBNDK,LCNT, 
IR1,HD11,NBYTE) 


I 


IOPT  =  4 


I 


CALL  STMSG 

(IOPT,IBNDX,LCNT, 
IRl, HD11, NBYTE) 


I 


IRl         =    IRl +  49 
IOPT       =      2 
NBYTE   =   36 


I 


CALL  STMSG 

(IOPT,IBNDX,LCNT, 
IRl, HD21, NBYTE) 


Subroutine  MHEAD 
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CALL  STMSG 

(IOPT,  IBNDX, 
LCNT,  IR1, 
HD21,  NBYTE) 


MRETURNJ 


Subroutine  MHEAD  (Concluded) 
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2.6.21    SUBROUTINE  OUTAP 

2.6.  21.  1    Purpose 

Subroutine  OUTAP  outputs  the  15-minute  Measures  of  Effectiveness  (MOE) 
data  on  an  output  tape  (Figure  8). 

2.6.21.2  Relationship 

This  subroutine  is  called  from  Routine  H  by: 
CALL  OUTAP  (IERR) 

where: 

IERR  is  the  mnemonic: 

IERR  =  Tape  write  error  indicator 
=  1  for  error 
=  0  for  no  error 

It  returns  to  the  calling  routine. 

2.6.21.3  Assumption 
None. 

2.6.21.4  Approach 

This  subroutine  is  called  only  by  Routine  H  and  is  therefore  not  required  to 
be  re-entrant.     It  may  call  Subroutine  TSTAP  (also  non-re-entrant)  to  test 
the  status  of  the  tape.     It  writes  the  tape  buffer  (TBUFF)  to  the  tape  (see 
Routine  H). 

2.6.21.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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WORD 


CONTENTS 


0 
1 
2 

3 


TIME  AND  DATE 
TIME  AND  DATE 
TIME  AND  DATE 
TIME  AND  DATE 


4 
5 
6 
7 
8 
9 


LINK#1 

OCCUPANCY 
STOPS 

TRAVEL  TIME 
VOLUME  (Q2) 
SPEED  (Q2) 


VOLUME 

QUEUE 

AVE.  SPEED 

DELAY 

OCCUPANCY  (Q2) 

0 


10 


1 


15 


LINK -2  (6  WORDS) 


1528 


i 


LINK -255  (6  WORDS 


1533 


END  OF  RECORD 


Figure  8.     15-Minute  Measure  of  Effectiveness 
(MOE)  Tape  Format 
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f  ENTER  ) 

RESET  TAPE  WRITE 
ERROR  FLAG 
IERR  =  0 


YES 


I 


NRPT  =  NRPT+1 


RECDING  =  0 


-•/"RETURN  ) 


START  OUTPUT 
ON  TAPE  UNIT 
X  'EO' 


f RETURN  ") 


SET  TAPE  WRITE 
ERROR  INDICATOR 
IERR  =   1 


Subroutine  OUTAP 
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CALL  TSTAP(I) 


YES 


-•/return) 


RESET  TAPE  WRITE 
ERROR  INDICATOR 
IERR  =  0 


RECDING  =  I 


START  OUTPUT 
ON  TAPE  UNIT 
X  'EO' 


('return) 


Subroutine  OUTAP  (Concluded) 
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2.6.22    SUBROUTINE  OUT2G 

2.6.22.1  Purpose 

This  subroutine  outputs  intersection  information  via  the  line  printer. 

2.6.22.2  Relationship 

OUT2G  is  called  from  Routine  H  by: 

CALL  OUT2G  (II,    IOPF) 

where: 

II  =    intersection  number 

IOPF    =    return  status 

=    0  for  process  completed 

=    1  for  return  to  complete  process 

2.6.22.3  Assumption 
None. 

2.6. 22.4  Approach 

Subroutine  OUT2G  clears  the  output  buffer,    then  places  a  page  header  fol- 
lowed by  such  information  as  the  various  phase  offsets,    cycle  length,    and 
which  core  group  this  intersection  is  associated  with. 

2.  6.  22.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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C  ENTER   J 


CALL  STMSG 
(TO  CLEAR  LINE 
PRINTER  BUFFER) 


CALL  STMSG 
(PRINT  TITLE 
AND  CURRENT  TIME 
SKIP  LINE) 


1 

f 

CALL  STMSG 
(PRINT  COLUMN 
HEADERS,  SKIP 
LINE) 

YES 


€> 


Subroutine  OUT2G 
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YES 


ITBL(1-21)=  ISPCE 


I 


CALL  E1SRT 
(CONVERT  I 
TO  BCD  FORMAT) 


I 


J=  1 
ITBL(2)=  I 


BCD 


JJ  =  4*(I-1)+J 
ID  =  IO(JJ)/2 
K  =  3*(J  +  1)  -1 


I 


CALL  E1SRT 
(CONVERT  ID 
TO  BCD  FORMAT) 


I 


J  =  J  +  1 
ITBL(K)=  ID 


BCD 


YES 


-WC2 


-Kb 


Subroutine  OUT2G  (Continued) 
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ID=KCL(CYLC)/Z 


CALL  E1SRT 
(CONVERT  ID 
TO  BCD  FORMAT) 


I 


ITBL(14)=  IDBCD 
IC=  IEA(I) 


I 


CALL  E1SRT 
(CONVERT  IC 
TO  BCD  FORMAT) 


I 


ITBL(17)=  ICBCD 
IC  =  CGRPN(I) 


I 


CALL  E1SRT 
(CONVERT  IC 
TO  BCD  FORMAT) 


I 


ITBL<20)=  ICBCD 


Subroutine  OUT2G  (Continued) 
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2 


CALL  STMSG 
(PRINT  DATA 
STORED  IN 
ITBL  ARRAY) 


PRINT  DATA  STORED 
WITHIN  ITBL  ARRAY 


Subroutine  OUT2G  (Concluded) 
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2.6.23    SUBROUTINE  PRNTF 

2.6.23.1  Purpose 

The  purpose  of  Subroutine  PRNTF  is  to  print  a  page  of  output  data  from  the 
line  printer  buffer. 

2.6.23.2  Relationship 

This  routine  is  called  from  Routine  H  and  Subroutines  LKDAT,    and  OUT2G 
by: 

CALL  PRNTF  (LCNT) 

where: 

LCNT  is  the  mnemonic: 

LCNT  =  Number  of  lines  to  be  printed. 

2.6.23.3  Assumption 
None. 

2.6.23.4  Approach 

This  subroutine  is  called  by  Routine  H.  Subroutines  LKDAT  and  OUT2G  are 
also  called  by  Routine  H.  Since  these  have  the  same  priority  level,  it  is  not 
required  that  Subroutine  PRNTF  be  re-entrant. 

2.6.23.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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PRNTF(LCNT) 


(enter) 


YES^ 


IS 

TAPE 

I/O  ADDRESS 

RECOGNIZED 

AND 
JVCCEPTA- 

?LE_> 

NO 


^^IS  TAPE      \ 

'        I/O  ADDRESS       ^ 

^      NO 
s^    YES 

^    YES  ^ 

WRITE  MESSAGE 
"MOE  TAPE  NOT 
REDOG"  IN 
OUTPUT  BUFFER 

s.        RECOGNIZED?         . 

J  YES 

S'      IS  TAPE  ^\ 

'       CONTROLLER      ^ 

\NON-OPERATIONAL^ 

^\OR  BUSY?^/ 

WRITE  MESSAGE 
"MOE  TAPE  UNUS 
END"  IN  OUTPUT 
BUFFER 

I  NO 

s'       IS  TAPE^\ 

'      UNAVAILABLE,     ^ 

WRITE  MESSAGE 
"MOE  TAPE  BUSY" 
IN  OUTPUT  BUFFER 

\NON-OPERATIONAL,  . 
^\OR  BUSY?      >^ 

\  YES  _ 

U\IO 

./IS  A  N. 

S^            TAPE           \. 

INTERRUPT 

WRITE  MESSAGE 
"MOE  TAPE  INT 
PEND"  IN  OUTPUT 
BUFFER 

.         awaiting 
^acknowledge-^ 

Xment'?/ 

1    NO 

WRITE  MESSAGE 
"MOE  TAPE  MANUAL" 
IN  OUTPUT  BUFFER 

=«■ 

OUTPUT  MESSAGE 


T 

(return) 


Subroutine  PRNTF 
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INCREMENT  PAGE 
NUMBER  BY  1. 


I 


CALL  E1SRT 
CONVERT  PAGE 
NUMBER 


I 


STORE  CONVERTED 
NUMBER  INTO 
OUTPUT  BUFFER 


I 


START  OUTPUT 
ON  LINE  PRINTER 


I 


c 


RETURN 


D 


Subroutine  PRNTF  (Concluded) 
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2.6.24    SUBROUTIN  E  SBYTC 

2.6.24. 1  Purpose 

This  subroutine  performs  a  circular  shift  on  8  bytes  of  data. 

2.6.24.2  Relationship 

This  subroutine  is  called  from  Routine  I  and  Subroutine  STAT  by: 
CALL  SBYTC  (A,    N) 

where: 

A    =    First  byte  of  an  8  byte  array.     Must  be  on  word  boundary. 
N    =    No.    of  bytes  to  shift  to  the  left.     If  N  is  negative  the  shift 
is  to  the  right.     -4.  LE.   N  .    LE.    4 

SBYTC  calls  GETBY,    PTBY. 

2.6.24.3  Assumption 
None. 

2.6.24.4  Approach 

The  bytes  of  the  specified  word  are  unpacked  by  subroutine  GETBY,  then 
repacked  in  their  'shifted'  position  by  calls  to  subroutine  PTBY.  SBYTC 
then  returns  to  the  calling  routine. 

2.6.24.5  Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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(enter) 

BCD  =  A(2) 
B(2)  =  AC1) 
B(3)  =  A(2) 
B(4)  =  ACL) 

11  =  N  +  5 

12  =  II  +  7 


i 


1  =  11 


CALL  GETBY 
(B,  I,  J) 


I 


CALL  PTBY 
(A,  K,  J) 


I 


1  =  1  +  1 

K  =  K+1 


NO 


Subroutine  SBYTC 
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2.6.25    SUBROUTINE  STAT 

2.6.25.1  Purpose 

This  subroutine  prints  system  statistics. 

2.6.25.2  Relationship 

This  subroutine  is  called  from  Routine  H  by: 
CALL  STAT  (JOPT,    IRET) 

where: 

JOPT    =  program  control  flag. 

=  1  for  print  failure  status  page 

=  2  for  print  controller  status  page 

=  3  for  print  detector  status  page 

=  4  for  print  sys'tem  status  page 

IRET     =  return  status 

=  1  for  completed 

=  2  for  not  completed 

2.6.25.3  Assumption 
None. 

2.6.25.4  Approach 

Subroutine  STAT  is  entered  from  Routine  H.     Upon  entry,    if  the  main  header 
has  not  been  placed  in  LPBUF,    then  this  is  done.     The  header  for  the  type 
of  status  page  (failure,    controller,    detector,    or  system)  is  then  placed  in 
LPBUF.     The  appropriate  data  is  then  formatted  into  LPBUF.     STAT  returns 
to  Routine  H. 


114 


2.6.25.5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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£ 


N=  NOFAL 


I 


YES 


N  =  MNUMF 


£ 


PKEY=  0 
N  =  SVIND 


YES 


BIND  =  BIND  +  1 


IS  MAIN  \  YES 
IEADER  OUT> 


STORE  MAIN  HEADER 
INTO  LPBUF 


STORE  FAILURE 
STATUS  PAGE 
HEADER  INTO  LPBUF 


Subroutine  STAT 
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£ 


K  =  4*(N-1) 


FORMAT  FAILURE  TABLE 
DATA  INTO  LPBUF 


TYPE  =  BYTE  1  OF  FLTAB(K) 
NUMBER  =  HALFWORD  1  OF 

FLTAB(K) 
TIME=  FLTABCK+1) 
MONTH  =  FLTAB(K+2) 
DAY=  FLTAB(K+2) 
ACKF=  BYTE  0  OF  FLTAB(K) 


K  =  K  -4 

N=  N  -  1 


YES 


BIND=  BIND  +  1 


SVIND=  N 


OUTPUT  LPBUF 
TO  LINE  PRINTER 


SET  SERVICE  BIT 
FOR  ROUTINE  H 


(EXIT  TO      \ 
ROUTINE  A  J 


1b 


YES  yT   IS  MAIN 

.HEADER  OUT> 


STORE  MAIN  HEADER 
INTO  LPBUF 


STORE  CONTROLLER 
STATUS  PAGE  HEADER 
INTO  LPBUF 


? 


K=  1 


KM1  =  K-l 


YES 


YES 


1 


'TCODE=  "F"  (FAILURE) 


TCODE="S"(STANDBY) 


YES 


TCODE=  "1" 
(INHIBITED  CIO 


6 


TCODE=  "C" 
(ACTIVE  CIO 


Subroutine  STAT    (Continued) 
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£ 


STORE  TCODE 
AND  CONTR.  NUM. 
INTO  LPBUF. 
14  ENTRIES/LINE 


("return") 


YES 


STORE  MAIN  HEADER 
INTO  LPBUF 


TCODE  =  "D" 
(DETECT  FAILURE) 


TCOD"  =  "C" 
(COMM.  FAILURE) 


TCODE = "S" 
(DETECT  IN  STANDBY) 


K  =  K  +  1 


STORE  TCODE  AND 

DETECT  NUM.  INTO 

LPBUF. 

14  ENTRIES/LINE 


Subroutine  STAT    (Continued) 
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IS  MAIN    \YES 
IEADER  OUT> 


STORE  MAIN  HEADER 
INTO  LPBUF 


STORE  SYSTEM 
STATUS  PAGE 
HEADER  INTO  LPBUF 


I 


K  =  1 


KM1=  K  -  1 


FORMAT  SYSTEM  STATUS 
DATA  INTO  LPBUF.  ONE 
LINE  FOR  EACH  SECTION  K. 


TSECT=  K 

TTIME=  TIMCH(KMl) 

S=  DMODE(KMl) 
DMODE  =  EBCMD(S) 

S=  MODES(KMl) 
AMODE=  EBCMD(S) 
TPAT=  PATNM(KMl) 


SUBROUTINE  CIC 
(IN  ROUTINE  K) 


GET  NO.  OF  CIC'S 
IN  SECTION  l< 


ETCIC=  CICCT 
TDFAIL=  SCDFC(KMl) 
TCFAIL=  SECFC(KMl) 


K=  K  +  1 


BIND  =  BIND  +  1 


PRNTF 
SUBROUTINE 


(RETURN  TO^N 
ROUTINE  kj 


Subroutine  STAT  (Concluded) 
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2.6.26    SUBROUTINE  STMSG 

2.6. 26. 1  Purpose 

Subroutine  STMSG  stores  message  into  LPBUF.     This  routine  also  will  space 
one  line  or  load  the  line  printer  buffer  (LPBUF)  with  blanks. 

2.6.26.2  Relationship 

This  subroutine  is  called  from  Routines  H,    I,    LKDAT,    MHEAD,    OUT2G,  and 
STAT  by: 

CALL  STMSG  (IOPT,    IBNDX,    LCNT,    LNDEX,    MESSG,    or  NBYTE) 

where: 

I 

! 

Input 

IOPT  =  1  Number  of  bytes  in  message  is  obtained  from  first  byte 
in  message. 

=  2  Number  of  bytes  in  message  is  in  calling  sequence. 

=  3  Only  a  partial  line  is  to  be  output,    LCNT  and  IBNDX  are 
not  incremented. 

IOPT  =  4  Space  one  line 

IOPT  =  5  Set  LPBUF  to  blanks 

IBNDX  =  BUF  index. 

LCNT  =  Line  count. 

LNDEX  =  LPBUF  index. 
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MESSG     =    Contains  message  to  be  output. 
NBYTE    =    Number  of  bytes  to  be  output. 

Output 

LCNT  =  Current  line  count 

IBNDX  *  Current  BUF  index 

LNDEX  =  Current  LPBUF  index 

2.6.26.3  Assumption 
None. 

2.6.26.4  Approach 

Subroutine  STMSG  transfers  the  specified  character  string  to  the  line 
printer  buffer  (LPBUFF).     The  current  line  count,    the  BUF  index  and  the 
LPBUF  index  are  incremented  when  appropriate.     Subroutine  STMSG 
returns  to  the  calling  routine. 

2.6.  26.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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2.6.27    SUBROUTINE  TIMEH 


2. 6.27. 1    Purpose 


Subroutine  TIMEH  reads  alphanumeric  data  (EBCDIC  code)  from  the  RBM 
clock  and  repacks  it  into  the  array  IBUF. 


2.6.27.2    Relationship 


This  subroutine  is  called  from  Routines  H,    I,   HFMT,    or  OUT2G  by: 
CALL  TIMEH  (IBUF) 

where: 

IBUF  is  the  mnemonic: 
Words\  Bytes 

0       12      3 


1 
IBUF  _   2 

(4  words)        3 

4 


m 

o 

n 

d 

d 

y 

y 

h 

h 

m 

m 

three  letter  EBCDIC  code  for  month 

two  digit  EBCDIC  code  for  day 

two  digit  EBCDIC  code  for  year 

two  digit  EBCDIC  code  for  each 
of  hour  and  minute 


2.6.27.3    Assumption 


None. 
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2.6.27.4    Approach 

This  subroutine  is  called  by  Routine  H  in  Priority  Level  3  and  is  therefore 
not  required  to  be  re-entrant. 


The  four  words  initially  read  into  the  system  real  time  clock  (RBMTIME) 
from  the  monitor  consist  of: 

Words  \   Bytes 

\    0        1        2        3 

1 

2 


h 

h 

: 

m 

m 

m 

o 

n 

d 

d 

i 

i 

y 

y 

(EBCDIC  code) 


2.6.27.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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f   ENTER  ") 


READ  CLOCK 
INTO  RBMTIME 
ARRAY  (4  WORDS) 


I 


ARRANGE  TIME 
DATA  INTO 
IBUF  ARRAY 
(4  WORDS) 

(return) 

Subroutine  TIMEH 
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2.6.28    SUBROUTINE  TSTAP 

2. 6.28. 1  Purpose 

Subroutine  TSTAP  tests  the  status  of  the  Measures  of  Effectiveness  (MOE) 
tape  before  an  effort  is  made  to  write  on  it. 

2.6.28.2  Relationship 

This  subroutine  is  called  from  subroutine  OUTAP  by: 
CALL  TSTAP  (I) 

where: 

I  is  the  mnemonic: 

I  =  Tape  write  protected  error  indicator. 

2.6.28.3  Assumption 
None. 

2.6.28.4  Approach 

This  subroutine  is  called  only  from  Subroutine  OUTAP  and  is  therefore 
not  required  to  be  re-entrant.  • 
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It  should  be  noted  that  since  OUTAP  is  an  assembly  language  routine  the 
above  FORTRAN  call  is  not  found  in  the  program  listing.  An  equivalent 
assembly  language  call  is  used. 

If  an  error  condition  exists,    an  appropriate  message  is  printed  on  the 
teletype. 


2.6.28.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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f      ENTER  ^\ 
V^FROM  PRNTF/ 


1=1  +  1 


SKIP  TO  TOP 
OF  NEXT  PAGE 


YES 


"LAST  TIME  LINE 
COUNT"  LSCNT  = 
"CURRENT  LINE 
COUNT"  LCNT 


I 


STORE  PROPER  "END 
ACTION  ADDRESS" 
INTO  OUTPUT  BUFFER 


I 


[SET  UP  AND  STORE 
COMMAND  DOUBLE- 
WORD  FOR  ONE  LINE 
OF  PRINT 


I 


DECREMENT  LINE 
COUNT  LCNT  BY  1 


Subroutine  TSTAP 
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IS  MOE  TAPE    \YES 
/RITE-PROTECTED. 


1=  0 


WRITE  MESSAGE 
"MOE  TAPE 
WRT  PROT" 
IN  OUTPUT 
BUFFER 


i 


OUTPUT 
MESSAGE 


f  return") 


Subroutine  TSTAP  (Concluded) 
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2.6.29    SUBROUTINE  TSTLP 


2.6.29.1    Purpose 


Subroutine  TSTLP  tests  the  status  of  the  line  printer  before  an  attempt  is 
made  to  print. 


2.6.29.2    Relationship 

This  subroutine  is  called  from  Routines  H,    I,    and  LKDAT  by: 
CALL  TSTLP  (IERR) 

where: 

IERR  is  the  mnemonic: 

IERR  =  Error  indicator 
-  1  for  error 
=  0  for  no  error 


2.6.29.3    Assumption 


None. 


2.6.29.4    Approach 


This  subroutine  is  called  by  Routines  H,    I  and  LKDAT.    Since  these  have 
the  same  priority  level,    it  is  not  required  that  Subroutine  TSTLP  be 
re-entrant. 
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If  an  error  condition  exists,   an  appropriate  message  is  printed  on  the 
teletype. 


2.6.29.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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0 


YES 


AH 


f    ENTER  ) 

1=  0 

I.E.,  LINE  PRINTER 

OK 


STORE  MESSAGE 
"LP  INTERRUPT 
NOT  ACKNOWLEDGED" 
IN  OUTPUT  BUFFER 


STORE  MESSAGE 

"LP  UNUSUAL 

END" 

IN  OUTPUT  BUFFER 


STORE  MESSAGE 

"LP  BUSY" 

IN  OUTPUT  BUFFER 


STORE  MESSAGE 
"LP  POWER  OFF" 
IN  OUTPUT  BUFFER 


Subroutine  TSTLP 
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© 


OUTPUT  MESSAGE 

" 

1  =  1 

I.E.,  LINE  PRINTER 

NOT  OK 

V 

^RETURN  ^ 

0- 


STORE  MESSAGE 
LP  PARITY 
ERROR"  IN 
OUTPUT  BUFFER 


STORE  MESSAGE 
'LP  PAPER  RUN 
AWAY"  IN 
OUTPUT  BUFFER 


YES 


YES 


STORE  MESSAGE 
"LP  PAPER  LOW- 
IN  OUTPUT  BUFFER 


OUTPUT  MESSAGE 


1=  1 

I.E.,  LINE  PRINTER 

NOT  OK 


STORE  MESSAGE 
"LP  MANUAL  MODE' 
IN  OUTPUT  BUFFER 


OUTPUT  MESSAGE 


I 


I  =  1 


(return  J 


(return) 


Subroutine  TSTLP  (Concluded) 
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2.  6.  30    ROUTINE  I 
2.  6.  30.  1    Purpose 

At  the  end  of  each  24-hour  period  or  when  the  system  is  set  into  shutdown, 
Routine  I  produces  a  hard  copy  report  which  is  a  summary  of  the  UTCS  part 
of  the  system  (Figure  9).     This  report  contains  a  link  by  link  summary  of 
all  measures  of  effectiveness  as  well  as  section  and  overall  system 
measures  of  effectiveness. 


2.6.30.2    Relationship 

This  routine  is  entered  once  per  24-hour  period  or  at  any  time  the  shutdown 
procedure  is  called.     The  routine  is  called  at  Level  3.     It  schedules  Routine 
Q,   when  required.     Routine  I  is  subdivided  into  the  following  subroutines: 
CAL15,   CALRL,   DECON,   EISRT,   SBYTC,  STMSG,  TIMEH,   and  TSTLP. 
Each  of  these  is  called  by  Routine  I. 


2.  6.  30.  3    Assumption 
None. 

2.6.30.4    Approach 

Upon  entry  Routine  I  begins  processing  the  links  in  increasing  numerical 
order.     For  each  link  that  has  detectors  associated  with  it,    it  prints  out 
accumulated  daily  volume  (VDAY),   accumulated  daily  percent  occupancy 
(OPC  =  ODAY/NRPRT),   accumulated  daily  speed  (ASVP  =  SDAY/NRPRT), 
accumulated  daily  travel  time  (TTTMP  =  D*  VDAY/ 528  0*  AVSP).     If  the 
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Figure  9.     UTCS  System  Summary,   End-of-Day  Report 
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Figure  9.     UTCS  System  Summary,   End-of-Day  Report  (Continued) 
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Figure  9.     System  Summary,   End-of-Day  Report  (Continued) 
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Figure  9.     UTCS  System  Summary,   End-of-Day  Report  (Concluded) 
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controller  associated  with  a  link  is  not  on  line  and  the  link  has  at  least  one 
failed  detector,   speed  (AVSP)  and  travel  time  (TTTMP)  are  set  to  zero. 

For  each  section,  totals  are  printed  out  for  volume  (VSECT)  and  travel  time 
(TTSCT/NLSPT).     Averages  are  printed  out  for  occupancy  (OSECT/NLS)  and 
speed  (SSECT/NLSPT). 

After  all  the  links  and  sections  summaries  are  printed  out,    system  per- 
formance is  printed.     This  report  contains  volume  (VSUM),   travel  time 
(TTSUM),   average  occupancy  (OSUM/NLSS),   and  average  speed  (SSUM/ 
NLSPS). 

Routine  I  then  initializes  to  zero  the  accumulated  daily  volume  (VDAY), 
accumulated  daily  occupancy  (ODAY),   and  the  accumulated  daily  speed 
(SDAY). 

Routine  I  checks  to  see  if  it  is  midnight  (FMTOD  =  0).     If  it  is  not,    the  end 
of  day  count  (EODC)  is  incremented  and  Routine  Q  (SHUTDOWN)  is  scheduled. 
Routine  I  then  exits.     If  it  is  midnight,   the  holiday  flag  (HLIDF)  is  set: 
0  —  no  holiday,    1  —  Saturday  type  holiday,   2  —  Sunday  type  holiday.     The  end 
of  day  count  (EODC)  is  reset  to  1.     Routine  I  then  exits. 

All  of  the  BPS  End-of-Day  report  generation  has  been  deleted  from  Routine 
I. 


2.6.30.5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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CENTER  FROM^N 
ROUTINE  A    J 


FILL  ENTIRE  LPBUF 
WITH  BLANKS 


& 


INITIALIZE 
PARAMETERS 


£ 

r 

1 

' 

JJ=  1 

IBRX=  1 

' 

' 

RELEASE  LINE 
PRINTER 

YES 


EODC  =  EODC  +  1 
SCHEDULE  ROUTINE  0 


EXIT  TO  A 
ROUTINE  A  J 


I  + 


KEMOVC  CODE  FROM 

HLIDT  (3*1  +  2) 

AND  STORE  INTu  HLIDF 


NH>)AY=  NHDAY  -  1 


HLIDT(3*I)=  HLIDT(3*J) 
(3  WORDS) 


"ODC  =  1 


(EXIT  TO        \ 
ROUTINE  A        J 


Routine  I 
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STORE  PREVIOUS  DAYS 
DATE  INTO  PAGEHEAD 
ER  STORE  TIME  =  2400 


STORE  DATE  AND 
TIME  INTO  PAGE 
HEADER 


DAYWK  =  DAYWK+1 


DAYWK  =  1 


© 


STORE  TOSU  INTO 
PAGE  HEADER 
TOSU=  TOSU1 
STORE  EODC  INTO 
PAGE  HEADER 


DECICATE  LIN 
PRINTER 


-© 


PAGNM=  0 


STORE  END  OF  DAY 
HEADER  INTO  LPBUF 


ZERO  'SECTION'  TEMP  STORAGE 
AREAS.  DLSUM,  NLSS,  NLIS, 
NLSPS,  OSUM,  QSUM,  SSUM, 
STPSM,  TTSUM,  VSUM. 


JJ  =  1 
L=l 

LM1=  L 


ZERO  'SECTION'  TEMP  STORAGE 
AREAS.  DLSCT,  NLS,  NLI, 
NLSPT,  OSECT,  QSECT,  SSECT, 
STPSC, TTSCT,  VSECT. 


FORMAT  AND  STORE  INTO  LPBUF 
'SECTION' JJ 


NWSEC=  NWSEC-1 
JJ  =  JJ  +  1 


NLS=  NLS  +  1,  NLSS  =  NLSS  +  1 
VSECT  =  VSECT  +  VDAY (LM1) 
VSUM  =  VSUM  +  VDAY  (LM1) 
OPC=  ODAY  (LMD/NRPT 
OSECT =  OSECT  +  OPC 
OSUM  =  OSUM  +OPC 


©   © 


Routine  I  (Continued) 
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0 


AVSP=  0 
TTTMP=  0 


TTSCT=  TTSCT+TTTMP 
TTSUM=  TTSUM+TTTMP 


FORMAT  AND  STORE 
INTO  LPBUF: 

L,  VDAY(LMl),  TTTMP, 
OPC,  AVSP 


T 
© 


NLSPT=  NLSPT+1 
NLSPS=  NLSPS+1 
AVSP=  SDAY(LMl)/ 

NRPT 
SSECT=  SSECT+ 

AVSP 
SSUM=  SSUM+AVSP 
TTTMP = 
D(LM1)*VDAY(LM1) 
B280*AVSP 


©- 


IPGKY  = 
IPGKY  +  1 


SUBROUTINE 
PRINTF 


OUTPUT  LPBUF 
TO  LINE  PRINTER 


SET  SERVICE  BIT 
FOR  ROUTINE  I 


(  EXIT  ) 


I 


L=  L  +  l 

LM1  =  LM1  +  1 


CALCULATE  AVERAGES 
AVSP=  SSECT/NLSPT 
TTTMP =  TTSCT/NLSPT 
OPC=  OSECT/NLS 


FORMAT  AND  STORE 
INTO  LPBUF: 
'TOTAL',  VSECT,  TTSCT, 
'AVERAGE',  TTTMP,  OPC, 
QPT,  AVSP 


YES 


IBRX=  IBRX+1 
IPGKY=  0 


YES 


© 


-Q> 


NWSEC=  NWSEC+1 
IPGKY=  IPGKY+1 


JJ  =  JJ  +  1 


© 


©  © 


Routine  I    (Continued) 
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© 


▼ 

STORE  SYSTEM  PER- 
FORMANCE HEADER 
INTO  LPBUF. 


I 


CALCULATE  AVERAGES 
OCP  =  OSUM/NLSS 
AVSP=  SSUM/NLSPT 


FORMAT  AND  STORE 
INTO  LPBUF  VSUM, 
TTSUM,  OPC,  AVSP 


IBRX=  IBRX+1 


© 


Routine  I  (Continued) 
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© 


IBRX  =  IBRX+1 


L=  0 


VDAY(L)=  0 
ODAY(L)  =  0 
SDAY(L)  =  0 


Q 


© 


Routine  I  (Concluded) 
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2.6.31    SUBROUTINE  PRPRED 

2. 6.31.  1    Purpose 

This  subroutine  summarizes  and  prints  predictor  performance  at  shutdown 
or  at  end  of  day  report. 

2.6.31.2  Relationship 

PRPRED  is  called  from  Routine  PREDICT  by: 

CALL  PRPRED 
It  uses  subroutine  STMSG  to  place  data  in  the  output  buffer. 

2.6.31.3  Assumption 

The  cumulative  statistics  are  available  from  file  15,    16,   and  17. 

2.  6.31.4    Approach 

The  cumulative  statistics  are  extracted  from  files  15,    16,  and  17.     Then 
mean  error,    standard  deviation  of  errors,   mean  relative  error,    standard 
deviation  of  relative  error,   RMS  relative  error,   mean  absolute  relative 
error  (AMI)  and  the  proportion  of  times  that  AMI  >  .  05,   ^  .  10,   £ .  20  are 
computed  for  each  link. 

2.  6.  31.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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I 


PPIOF=  1 

v 

CALL  GETBY 
(BLANK,  1,  BLKBYT) 

I 


NN=  0 


I 


CALL  BUFFERIN 
(18,1,C0R,550,II,NN) 


Subroutine  PRPRED 
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IUNIT  =  12 

LL=  0 

L1NE=  0 

CLEAR  ARRAY  TOTAL 


YES 


-HG2 


CALL  BUFFERIN 
IUNIT,  1,  STAT, 
NWSTAT,  II,  NW 


I 


I-  1 


Subroutine  PRPRED    (Continued) 
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Ml=  STAT(2,  J,  D/N 
Y=  STAT(3,  J,  D/N 


YES 


Y=  0 


M2=  SQRT(Y) 

RM1=  STAT(4,  J,  D/N 

Y=  STATC5,  J,  D/N 


YES 


Y=  0 


RM2 

=  SQRT(Y) 

SS  = 

SQRT(RM1**"  +  RM2**2) 

AMI 

=  STAT(6,  J, 

D/N 

POS 

=  STAT  (7,  J, 

D/N 

P10 

=  STAT(8,  J, 

D/N 

P20 

=  STATC9,  J, 

D/N 

Subroutine  PRPRED    (Continued) 
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TOTAL  (1-9)  = 
TOTAL  (1-9)  +  ST 
(1-9) 


Subroutine  PRPRED  (Continued) 
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IOPT  =  5 
PPIOF=  2 
LCNT  =  1 
LNDEX =  7220 
NBYT  =  1 


CALL  STMSGdOPT, 
IBNDX,  LCNT,  IPPHD, 
NBYT) 


I 


IPPHD(l-4)=  LABEL 
(1-4, J) 
IOPT=  2 
NBYT=  40 
LNDEX =  38 


I 


CALL  STMSG 
IOPT,  IBNDX,  LENT 
LNDEX,  IPPHD,  NBYT 


I 


IOPT=  2 

LNDEX =  LNDEX  +  7 

NBYT=  96 


I 


CALL  STMSG 
LNDEX =  LNDEX+  17 
NBYT=  88 
CALL  STMSG 


I 


LNDEX =  LNDEX  +  35 
NBYT=  68 


Subroutine  PRPRED    (Continued) 
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©■ 


© 


CALL  STMSG 


I 


LNDEX =  LNDEX +  52| 
10PT=  3 
NBYT  =  8 


I 


CALL  STMSG 


I 


!OPT=  2 

NBYT  =  40 

LNDEX =  LNDEX  +  19 


I 


CALL  STMSG 


I 


I0PT  =  4 


I 


CALL  STMSG 


LINE  =  LINE  +  1 
ENCODE  DATA 


I 


IOPT=  2 

NBYT  =  113 

LNDEX  =  LNDEX  +  13 


I 


CALL  STMSG 


Subroutine  PRPRED    (Continued) 
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1  =  1  +  1 


IUNIT  =  IUNIT  +  1 


DIVIDED  ELEMENTS  OF 
ARRAY  TOTAL  BY  N 
ENCODE  DATA 
I0PT  =  4 


CALL  STMSG 


100   MBYT 
NBYT=  100 
LNDEX=  LNDEX  +3 


I 


CALL  STMSG 


I 


PPIOF=  3 


Subroutine  PRPRED    (Continued) 
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© 


J  =  J  + 1 

PPIOF=  1 


f 


CLEAR  ARRAY  OUT 


I 


CALL  BUFFEROUT 
UNITS  12-17 
WAIT  DISK  UNIT 
(U/OULNWSTATJIjNN) 


© 


Subroutine  PRPRED    (Continued) 
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IBRX  =  IBRX  +  1 
MAST(IMAST)=  1 


(return  J 


Subroutine  PRPRED  (Concluded) 


154 


2.6.32    ROUTINE  J 

2.6.32.1    Purpose 

The  Map  Control  and  Data  Formatting  Routine  controls  the  indicator  arrows 
at  the  illuminated  street  map  display.     The  indicator  arrows  are  of  two 
types,    those  providing  controller  status  information,    and  those  providing 
data  on  link  parameters,    including  detector  status  information. 

The  Map  Display  consists  of  two  separate  displays.     The  Controller  Display 
comprises  the  intersection  arrows  which  are  illuminated  in  green  or  red. 
The  Surveillance  Display  comprises  the  link  arrows  which  parallel  their 
corresponding  streets  and  which  are  illuminated  in  orange.     A  third  display, 
the  Legend  Display,    identifies  the  display  modes  and  indicates  any  flow  data 
threshold  being  used. 

The  397  Map  Display  control  signals  in  the  original  114  intersection  system 
are  included  among  the  32  per  second  MUX  inputs  and  outputs.     Each  map 
output  word,    which  is  sent  to  the  MUX  along  with  a  MUX  format  word, 
contains  one  nine-bit  address  and  two  signal  state  bits.     Output  words  con- 
taining map  switches  and  display  controls  (i.e.,    the  24  legend  on/off 
switches,    the  16  bits  comprising  the  four  BCD  threshold  digits,    the  enable/ 
disable  communication  discrete,    and  the  enable /disable  traffic  signal  lamps 
switch)  use  only  one  of  the  two  state  bits.     Most  of  those  containing  intersec- 
tion of  link  arrow  lamp  controls  use  both  state  bits.     However,    some  inter- 
section state  bits  refer  to  non-existent  controllers  in  order  to  maintain  a 
consecutive  numbering  scheme:    only  114  of  the  124  intersection  state  bits 
provided  in  the  62  output  words  are  used.     On  the  other  hand,    all  but  one  of 
the  254  state  bits  in  the  127  link  arrow  output  words  are  used. 
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Routine  J  inserts  the  appropriate  state  bits  in  the  Map  Signal  Output  Array 
for  the  requested  Controller  and  Surveillance  Displays.     Every  1/32  of  a 
second,  the  Executive  Routine  A  transmits  24  state  bits  and  associated 
addresses  (12  data  words)  to  the  map.     (The  24  per  1/32  of  a  second  limi- 
tation is  due  to  the  2  signals  per  millisecond  rate  at  which  the  map  de- 
coding logic  can  accept  signal  data.  )    The  Map  Signal  Output  Array  (LMAP) 
comprises  35  x  12  =  420  data  words,   thus  providing  the  capacity  for  840 
outputs.     The  entire  array  is  output  every  35/32  seconds. 

The  one-way  arrows  on  15th  and  17th  streets  are  operated  directly  by 
District  of  Columbia  Department  of  Transportation  (DCDOT)  radio  signals 
and  are  independent  of  Routine  J. 

In  addition  to  the  nine-bit  address  and  the  two  signal  state  bits,   each  data 
word  transmitted  to  the  map  contains  a  one -bit  strobe  signal.     The  value 
of  this  strobe  signal  is  "l"  for  the  odd-numbered  sequential  data  words 
(i.  e. ,   first,   third,    .  .  .  )  in  each  12 -word  group  transmitted  during  a  1/32 
of  a  second  time  slot,  and  "0"  for  the  even-numbered  data  words  (i*.  e. , 
second,   fourth,  .  .  .  ).     Thus,   whenever  a  new  word  is  transmitted,   the 
strobe  signal  state  changes.     This  state  change  informs  the  map  decoding 
logic  that  a  new  word  is  ready  to  be  processed. 

In  processing  a  data  word,  the  map  decoding  logic  operates  on  the  nine-bit 
address  to  determine  the  destination  of  the  two  state  bits.     It  then  routes  the 
state  bits  to  their  respective  switches  or  lamps  and  waits  for  the  next  data 
word. 

If  the  nine-bit  address  is  invalid  (i.e. ,   it  does  not  reference  an  existing 
signal  or  signal  pair),   it  will  be  ignored  by  the  decoding  logic.     If  the 
address  refers  to  one  signal,   rather  than  to  a  signal  pair,  the  decoding 
logic  will  route  the  leftmost  state  bit  in  the  data  word  to  that  signal. 
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2.6.32.2    Relationship 

This  routine  is  entered  whenever  there  is  an  operator  request  and  at  6- 
second  intervals  for  updating  data.     The  routine  is  scheduled  by  Routine  A 
and  returns  to  that  routine.     The  routine  is  divided  into  the  following  sub- 
routines:   BCDTH,   CDL,   CLS,   SDL,   STLNK,   and  TCSLP.     These  sub- 
routines are  called  by  Routine  J. 


2.6.32.3  Assumption 

A-phase  green  displays  are  directly  controlled  by  hardware. 

2.6.32.4  Approach 

The  status  of  the  A-Phase  at  each  controlled  intersection,   whether  red  or 
green,    is  transmitted  directly  to  the  map  and  is  always  available  even  when 
the  computer  is  not  in  operation.     It  will  be  displayed  at  all  times  except 
when  deliberately  turned  off  or  when  Controller  Status  or  Controller  Failed 
displays  are  requested. 

Controller  Status  can  be  requested  in  two  modes:    Traffic  Control,   and  CIC. 
In  the  Traffic  Control  mode,   green  arrows  are  displayed  at  all  intersections 
under  computer  control,    red  arrows  for  those  in  standby.     In  the  CIC  mode, 
green  arrows  are  displayed  for  the  intersections  which  have  been  activated 
for  Critical  Intersection  Control,    red  for  all  others. 

Controllers  Failed  are  called  for  in  the  Traffic  Control  mode  only.     Here  all 
intersections  where  the  controllers  have  failed  display  red  arrows,   all  others 
green  arrows. 
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Surveillance  Equipment  Failed  is  called  for  in  the  Traffic  Control  mode.     In 
this  mode,  any  link  having  a  vehicle  detector  or  communication  failure  will 
be  illuminated  in  orange. 

Link  flow  data  is  selected  by  type  and  threshold  value.     For  the  Traffic  Con- 
trol mode,   the  following  types  of  flow  data  (MOE)  can  be  selected: 

•  Occupancy 

•  Volume 

•  Speed. 

In  any  case,    only  those  links  are  illuminated  where  the  MOE  value  exceeds 
the  selected  threshold  for  occupancy  or  volume,    or  where  the  speed  value  is 
less  than  the  selected  threshold. 

The  Executive  Routine  (A)  schedules  Routine  J  every  6  seconds  for  a  periodic 
updating  of  the  Controller  and  Surveillance  Displays.     Routine  J  is  also 
scheduled  by  the  Manual  Control  Panel  Routine  (M)  whenever  the  operator 
enters  a  valid  Map  Display  request.     Note  that  up  to  35/32  seconds  may  pass 
until  all  map  switches  and  lamps  are  set  to  the  states  included  in  the  updated 
Map  Signal  Output  Array. 

Upon  entry,   Routine  J  first  examines  the  Controller  Display  Code  to  deter- 
mine which  Controller  Display  mode  is  to  be  presented  (0  for  A-Phase 
green;  1  for  Controllers  Off;  2  for  Controllers  Status,    3  for  Controllers 
Failed;  4  for  CIC  status).     It  then  branches  to  the  appropriate  program 
segment  to  format  the  applicable  Legend  Display;  to  set  the  enable /disable 
lamp  switches  as  required;  and  to  determine  the  red/green  state  for  each 
intersection  arrow  lamp  according  to  the  selected  Controller  Display  mode. 
After  preparing  the  Controller  Display,   Routine  J  examines  the  Surveillance 
Display  Code  (0  for  Surveillance  Display  Off;  1  for  Traffic  Control  System 
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Equipment  Failed;  2  for  Flow  Data).     It  branches  to  the  appropriate  program 
segment  to  format  the  applicable  Legend  Display  and  to  determine  the  on/off 
state  for  each  link  arrow  lamp  according  to  the  selected  Surveillance  Display 
Mode.     Note  that  the  Controller  and  Surveillance  Display  Codes  remain  in- 
tact until  the  operator  requests  a  mode  change  using  the  Control  Panel. 

Routine  J  enters  the  signal  states   for  the  Controller  Display  and  for  the 
Legend  Display  directly  in  the  Map  Signal  Output  Array.     However,  to  avoid 
momentary  "blackouts"  of  the  Surveillance  Display  due  to  the  fact  that  J 
turns  off  all  link  arrows  prior  to  determining  their  on/off  states,   the  routine 
first  generates  the  Surveillance  Display  in  a  temporary  buffer  and  then 
moves  that  array  into  the  Map  Signal  Output  Array. 

When  Routine  J  completes  the  updating  of  both  the  Controller  Display  and  the 
Surveillance  Display,    it  returns  control  to  the  calling  routine.     During  the 
next  35/32  seconds  all  the  updated  switch  and  lamp  states  will  be  output  to 
the  map. 

The  following  paragraphs  describe  two  utility  subroutines  employed  in  pre- 
paring Flow  Data  Surveillance  Displays  and  data  arrays  upon  which  Routine 
J  operates. 

Subroutine  TCSLP  (PAR,   MTHLD,   B,  F,   S)  --  The  utility  subroutine  TCSLP 
compares  a  Traffic  Control  System  parameter  value  for  each  link  with  a 
threshold  value,   MTHLD.     The  link  parameters  are  stored  in  a  halfword 
(S  =  0)  or  byte  (S  =  1)  array  starting  at  location  PAR.     If  the  flag  F  is  zero, 
a  link  arrow  is  illuminated  if  and  only  if  the  corresponding  link  parameter 
exceeds  the  threshold  value.     If  F  is  non-zero,   the  arrow  is  illuminated  if 
and  only  if  the  parameter  is  less  than  the  threshold. 

TCSLP  uses  Subroutine  BCDTH  to  format  MTHLD  for  BCD  presentation  in  the 
Legend  Display. 
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Subroutine  BCDTH  Description  --  The  utility  Subroutine  BCDTH  converts 
the  positive  binary  integer  MTHLR  (<9999)  to  BCD  and  stores  the  resulting 
bit  configuration  in  the  Map  Signal  Output  Array.     The  binary  representa- 
tions of  BCD  digits  are: 

8 -Bit         4-Bit      2 -Bit      1-Bit 

0  = 

1  = 

2  = 

3  = 

4  = 

5  = 

6  = 

7  = 


0 

0 

0 

0 

0 

0 

0 

1 

0 

0 

1 

0 

0 

0 

1 

1 

0 

1 

0 

0 

0 

1 

0 

1 

0 

1 

1 

0 

0 

1 

1 

1 

1 

0 

0 

0 

1 

0 

0 

1 

Map  Signal  Output  Array  (LMAP)  --  The  Map  Signal  Output  Array  organiza- 
tion comprises  840  words:    420  MUX  "order"  words  interleaved  with  420  data 
words.     All  420  MUX  order  words  are  identical:    Each  order  word,   when 
presented  to  the  MUX,   causes  bytes  0,    1,   and  2  of  the  following  data  word 
to  be  transmitted  to  the  three  7950  stored  output  modules  connected  to  the 
map;  it  then  causes  a  1  millisecond  delay  before  the  next  order  word  is 
accepted  by  the  MUX. 

Each  map  data  word  has  the  following  format: 

•  Bit  0  (sign  bit)  is  the  alternating  strobe  signal  discussed 
in  Section  1. 

•  Bits  4  and  20  are  the  two  signal  state  bits. 

•  Bits  7  through  15  are  the  9-bit  signal  pair  address. 
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The  strobe  signal  (bit  0)  and  the  9 -bit  address  (bits  7  -  15)  in  each  data  word 
are  set  to  their  appropriate  values  when  the  program  is  loaded  into  the 
computer  and  do  not  change.     The  state  bits  are  inserted  (using  the  logical 
operation  instructions  of  the  computer)  by  Routine  J  as  a  function  of  the 
display  being  presented. 

In  the  Map  Signal  Output  Array  organization  (Figure  10)  the  first  48  data 
words  contain  a  signal  status  (one  per  data  word)  for  the  map  controls  and 
Legend  Display;  however,    only  32  of  these  data  words  are  used  in  the  pre- 
sent system.     The  next  116  data  words  contain  the  green/red  intersection 
arrow  status  (two  per  data  word)  of  the  Controller  Display;  the  present  sys- 
tem uses  62  words,    providing  124  state  bits.     The  next  256  data  words  con- 
tain the  on/ off  link  arrow  states  (two  per  data  word)  of  the  Surveillance  Dis- 
play; 127  of  these  are  used  in  the  present  system,    providing  254  state  bits. 

The  following  algorithms  can  be  used  to  reference  state  bits  in  the  LMAP 
array.     These  algorithms  compute  the  byte  address,   relative  to  the  first 
byte  of  the  array,   of  the  byte  containing  the  signal  state.     The  signal  state 
itself  is  in  bit  position  4  of  the  byte  (i.  e. ,   the  fifth  bit  from  the  left  end  of 
the  byte). 

•  The  Enable /Inhibit  Communications  control  bit  is  in  byte 
4  of  the  array. 

•  The  Enable/Disable  Traffic  Signals  control  bit  is  in  byte 
8  of  the  array. 

•  The  Legend  i  On/Off  control  bit  is  in  byte  8i  +  12  for  i  =  1, 
...,    14. 

•  The  Jth-bit  of  threshold  digit  i  is  in  byte  32i  +  8k  +  100, 
where  k  =  0,    1,    2,    3  for  j  =  8,    4,    2,    1,   and  i  =  1,    2,    3,   4. 
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Figure  10.     Map  Signal  Output  Array 
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The  Controller  I  green/red  control  is  in  byte  8  [(i  =  l)/2]  +  k  +  388,  where 
[x]  denotes  the  integer  part  of  x,  where  k  =  0  for  i  odd  and  k  =  2  for  i  even, 
and  where  i  =  1,  .  .  .  ,    112  for  the  present  system. 

The  Link  Arrow  i  On/Off  control  is  in  byte  8  [(i  =  1/2]  +  k  +  1316,   where 
[x]  denotes  the  integer  part  of  x,  where  k  =  0  for  i  odd  and  k  =  2  for  i  even, 
and  where  i  =  1,  .  .  . ,   253  for  the  present  system.     When  Routine  J  deter- 
mines that  Link  Arrow  is  to  be  on,   it  clears  bit  4  of  byte  i  =   1  of  the  internal 
byte  array,    LNKARW,   each  byte  of  which  is  set  to  X'OO'  at  every  entry  of 
Routine  J.     After  the  Surveillance  Display  has  been  completely  formatted, 
J  replaces  the  state  bit  for  Link  Arrow  i  in  the  LMAP  array  by  the  state 
bit  from  byte  i  -  1  of  the  LNKARW  array,   for  i  =  1,  .  .  . ,    253. 

Link  Arrow  Arrays  --  Two  arrays  provide  the  necessary  cross-references 
between  vehicle  detector  numbers  and  link  arrow  numbers  (DETDSP); 
between  link  numbers  and  link  arrow  numbers  (LNKDSP).     Each  is  a  byte 
array  whose  ith  entry  is.  the  index  of  the  LNKARW  array  entry  containing 
the  state  bit  for  the  ith  detector  or  link,   respectively. 


2.6.32.5    Listing 


See  Volume  III,    2GCF  Routine  Listings, 
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(ENTER  FROIvTN 
ROUTINE  A   J 

~1T^ 


PHASE  GREEN 


CONTROLLERS  OFF 


CONTROLLER  STATUS 


CONTROLLERS  FAILED 


CIC  STATUS 


Routine  J 
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CONTROLLER  STATUS 


£ 


IN  LMAP: 

SET  ENABLE/INHIBIT  COLUMN. 
ADDRESS  STATE  BIT =  1 

SET  ENABLE/DISABLE  LAMPS 
ADDRESS  STATE  BIT=  0 

SET  LEGEND  ADDRESS  STATE  BITS: 
CONTROLLER  STATUS =  1 
CIC  STATUS =  0 
CONTROLLERS  FAILED -0 
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RED" 


'HOLD  CONT.  GREEN" 


Routine  J  (Continued) 
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CONTROLLERS  FAILED 
?? 


IN  LMAP: 

SET  ENABLE/INHIBIT  COMMUN. 

ADDRESS  STATE  BIT  =  1 

SET  ENABLE/DISABLE  LAMPS  ADDRESS 
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Routine  J    (Continued) 
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IN  LMAP: 

SET  ENABLE/INHIBIT  COMMUN. 

ADDRESS  STATE  BIT=  1 

SET  ENABLE/DISABLE  LAMPS  ADDRESS 

STATE  BIT  =  0 

SET  LEGEND  ADDRESS  STATE  BITS: 

CONTROLLER = 0 

CIC  STATUS  =  1 

CONTROLLERS  FAILED-  0 

"INHIBIT" 
"ENABLE" 


"CIC  STATUS 
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1=  NO.  OF  CONTROL- 
LERS IN  SYSTEM 
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Routine  J    (Continued) 
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STATE  BIT  IN  BYTE 
LMAP+8[(I-1)2]+K+1316 


(  EXIT  TO       ^ 

\_     ROUTINE  A     J 


Routine  J  (Continued) 
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TCS  SURV.  EQUIPMENT  FAILED 
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Routine  J    (Continued) 
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OCCUPANCY 


"OCCUPANCY 
LEGEND  ON" 
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"CONT. LEGENDS 
UNCHANGED" 


IN  LMAP: 

SET  LEGEND  ADDRESS  STATE  BITS: 
OCCUPANCY  =     1 

VOLUME  =     0 

SPEED  =     0 
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I 
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PAR  =  "AHCC"  (PCO)  MTHLD  = 
THRESHOLD  (=THRESH)/100 
B=15,     F=0,     S=0 


"VOLUME 
LEGEND  ON" 

YES 


CONT. LEGENDS 
UNCHANGED" 


VOLUME 
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IN  LMAP: 
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VOLUME  =  0 
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SURV.  EQUIP.  FAILED  =  0 


C     EXIT  TO      ^ 
V   ROUTINE  A    J 


I 


TCSLPP  LINE  PARAMETER 
PROCESSING  SUBROUTINE 


PAR=  "SBAR"  (S) 

MTHLD  =  THRESHOLD  (=THRESH) 

B  =  2,    F  =  1,    S  =  1 


Routine  J    (Concluded) 


6 
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2.6.33    SUBROUTINE  BCDTH 

2.6.33. 1  Purpose 

To  enter  threshold  value  in  map  array. 

2.6.33.2  Relationship 

This  subroutine  is  called  from  routines  J  and  TCSLP  by: 
CALL  BCDTH  (MX,    LA) 

where: 

MX    =    The  integer  to  be  stored 

LA     =    The  array  where  the  integer  is  to  be  stored. 

This  subroutine  calls  PTBI. 

2.6.33.3  Assumption 
None. 

2.6.33.4  Approach 

Subroutine  BCDTH  converts  the  positive  binary  integer  MTHLR  (<  9999)  to 
BCD  and  stores  the  resulting  bit  configuration  in  the  Map  Signal  Output 
Array. 

2.6.33.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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f       ENTER       ^ 


NO 


IOFS  =  32*33 

M  =  MX 
MD=  M 
KZ  =  16 
l<=  1 


MQ=  MD/10 
MR=  MD-10*MQ 
1=  1 


MC  =  MR/2 
MB=  MR-2*MC 
IX  =  64*(KZ-1) 

+  IOFS +  5 


CALL  PTBI 
CLA,  IX,  MB,0) 


KZ=  KZ  -  1 

MR=  MC 
1=1  +  1 


K  =  K  +  1 


RETURN 


Subroutine  BCDTH 
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2.6.34    SUBROUTINE  CDL 

2.6. 34. 1  Purpose 

This  subroutine  sets  controller  display  switches  and  legends. 

2.6.34.2  Relationship 

This  subroutine  is  called  from  Routine  J  by: 

CALL  CDL  (I,    J,    K,    LA) 

where: 

I         =    Desired  state  of  the  enable  /inhibit  communication  address  bit. 
J        =    Desired  state  of  the  enable /inhibit  lamps  address  bit. 
K       =    Index  to  desired  map  legend 

K  =  1  =  Controller  status 

K  =  2  =  CIC  status 

K  =  3  =  BPS  status 

K  =  4  =  Controllers  failed 

K  =  15  =  A-phase  green 
LA    =    Output  array  of  display  control  bits 

This  subroutine  calls  subroutine  PTBI. 

2.6.34.3  Assumption 
System  integrity  is  assumed. 

2.6.34.4  Approach 

Subroutine  CDL  begins  by  setting  the  enable /inhibit  communication  address 
bit  and  the  enable /inhibit  lamps  address  bit  to  the  desired  states.     The  appro- 
priate bits  to  light  the  desired  legend  display  are  then  set.     Subroutine  CDL 
then  returns  to  the  calling  routine. 
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2.6.34.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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f  ENTER  J 

_T_ 

CALL  PTBI 
(LA,  37,  I,  0) 


CALL  PTBI 
(LA,  101,  J,  0) 


=  K? 

V  YES 

KK  =  1 

L*a 

Subroutine  CDL 


176 


IA  =  2085 

i 

CALL  PTBI 
(LAJA,  KX,0) 

1 

r 

(rET 

URN  J 

Subroutine  CDL  (Concluded) 
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2.6.35    SUBROUTINE  CLS 

2.6. 35. 1  Purpose 
This  subroutine  sets  controller  lamp  states. 

2.6.35.2  Relationship 

This  subroutine  is  called  from  Routine  J  by: 

CALL  CLS  (N,    LA,    IC) 

where: 

N        =    controller. 

IC      =    state  of  controller. 

LA    =    output  to  lamps. 

This  routine  calls  GETBI,    PTBI. 

2.6.36.3  Assumption 
None. 

2.6.35.4  Approach 

CLS  addresses  the  half-words  in  words  9  7  to  209  of  the  Map  Signal  Output 
Array  (LMAP).     The  state  of  the  controller  (IC)  is  then  stored  in  the  appro- 
priate halfword  of  LMAP.     CLS  returns  to  the  calling  routine. 

2.6.  35.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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C        ENTER       } 

v 

1-  N 

J=  1 

l<=  1 

IOFST=  97*32 

IX  =  32U-D  +  1 
IY=  IX  +30 


V 

IY1 

=  32(K-1)  + 

I0FST 

+  5 

IY2  = 

IY1  + 

16 

LA(IY1)  = 

IC(IX) 

LA(IY2)  = 

IC(IX 

*■  1) 

1=  1 

-  2 

YES 


K  =  K  +  2 

IX  =  IX  +  2 


YES 


J=  J  +  l 


*f     RETURN     J 


Subroutine  CLS 
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2.6.36    SUBROUTINE  SDL 

2.  6.36. 1    Purpose 

Subroutine  SDL  sets  surveillance  display  legends, 

2.6.36.2    Relationship 

This  subroutine  is  called  by: 
CALL  SDL  (I,    LA) 

where: 

I  =  pointer  to  legend  arrays 

Legend     5  =  occupancy 

Legend     6  =  volume 

Legend     7  =  speed 

Legend     8  =  queue 

Legend     9  =  stops 

Legend  10  =  delay 

Legend  11  =  passenger  gain 

Legend  12  =  buses  helped 

Legend  13  =  surv  equip  failed 

Legend  14  =  BPS  surv  equip  failed 

LA  =  Array 
This  subroutine  calls  PTBI. 
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2.6.36.3  Assumption 
None. 

2.6.36.4  Approach 

Ten  bits  in  the  specified  array  (LA)  are  cleared.     The  bit  in  LA  that  corres- 
ponds to  the  specified  surveillance  legend  (I)  is  also  cleared.     SDL  then 
returns  to  the  calling  routine. 

2.6.36.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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C        ENTER        J 

~3 


I  =  I 

K=  1 


I 


IA  =  64*(K-1)  +  421 


I 


CALL  PTBI 
(LA,  IA,  0,  0) 


I 


K  =K+1 


YES 


■^RETURN      J 


CALL  PTBI 
(LA,  IA,  1,  0) 


f       RETURN       J 


Subroutine  SDL 
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2.6.37    SUBROUTINE  TCSLP 

2.6. 37. 1  Purpose 

Subroutine  TCSLP  is  a  link  processing  subroutine. 

2.6.37.2  Relationship 

TCSLP  is  called  from  Routine  J  by: 

CALL  TCSLP  (LP,    MT,    IF,   NL,    LD,    LR,    LA,    ITR) 

where: 

LP      =    link  parameter  byte  array 
MT     =    link  threshold  value 
IF       =    Program  control  flag 

0  =  byte  control 

1  =  halfword  oriented 
NL      =    Program  control  flag 

0  =  link  arrows  illuminated  if  and  only  if  the  corresponding 

link's  parameter  exceeds  threshold  value 

1  =  link  arrows  illuminated  if  and  only  if  the  corresponding 

link's  parameter  is  less  than  the  threshold  value. 
LR      =    Link  arrow  state  bit 
LA      =    Output  array  of  display  control  bits 
ITR    =    Return  status 

TCSLP  calls  Subroutine  BCDTH. 

2.6.37.3  Assumption 
None. 
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2.6.37.4  Approach 

Subroutine  TCSLP  compares  a  Traffic  Control  System  parameter  value  for 
each  link  with  a  threshold  value,    MT.     The  link  parameters  are  stored  in  a 
halfword  (LD  =  0)  or  byte  (LD  =  1)  array  starting  at  location  LP.     If  the  flag 
NL  is  zero,    a  link  arrow  is  illuminated  if  and  only  if  the  corresponding  link 
parameter  exceeds  the  threshold  value.     If  NL  is  non-zero,    the  arrow  is 
illuminated  if  and  only  if  the  parameter  is  less  than  the  threshold. 

2.6.37.5  Listing 

See  Volume  III,   2GCF  Routine  Listings. 
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ENTER 


YES 


IS  NL  =  0? 


NO 


Tyes 

/  IS  LPU)  >MT?^ 

(SEE  DESCRIPTION  OF 

<     S  ARGUMENT) ~S 

/"S  LPCJX     SsV 

>NQ 

NO    . 

v.           MT 
\,  YES              \, 

y      i       > 

?            ^ 

YES 

3ERATIVE> 

YES/^^ 
U^IS  LINK  OF 

LN  =  [LINK  WITH 
DISPLAY  LINK  NO.]  (J) 

^V.  I.E.  IS  DFAIL(J)=^ 
\.        0?         >^ 

1 

NO 

4 

SET  LR  STATE 

BIT  FOR  LINK  ARROW 

LN=  1 

k 

4 

w 

^ 

J  =  J  +  1 


BCDTH  SUBROUTINE 


CONVERT  MT 
ENTER  IN  MAP 
ARRAY  (LA) 


c 


RETURN 


J 


Subroutine  TCSLP 
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2.6.38    ROUTINE  K 

2.6.38.1    Purpose 

Routine  K  examines  data  and  commands  formatted  in  Routine  M  in  accord- 
ance with  the  display  controls  set  at  the  Operator's  Control  Panel.     The 
routine  executes  these  commands  to  cause  the  selected  display  to  be  pre- 
sented by  the  CRT  device. 

The  Routine  K  Failure  Table  Updating  function  remains  in  core  during  sys- 
tem operation.     This  portion  of  the  routine  maintains  the  controller  and 
detector  failure  tables  up  to  date  based  on  inputs  from  other  operational 
routines. 


2.6.38.2    Relationship 

Routine  K  is  entered  whenever  the  operator  calls  for  a  change  and  at  25- 
second  intervals.     It  is  entered  from  the  Level  3  Executive  Routine. 

The  Failure  Table  Updating  Add  Function,   Subroutine  KFTU,   is  entered 
from  Routine  K  through  the  use  of  indicator  flags  set  by  Routines  P  and  E. 

The  Failure  Table  Updating  Failure  Acknowledge/Failure  Repair  function, 
Subroutine  KFMT,   is  entered  from  the  Manual  Control  Panel  Processing 
Routine.     The  CRT  control  and  Data  Formatting  Routine  is  divided  into  the 
following  subroutines:    TODAY,   DISIN,   CNVT,   SETCR,    DISNM,   SCODE, 
DCMAL,  CRLF,  CIC,   GREEN,  TRIG.     These  subroutines  are  called  by 
Routine  K. 
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2.6.38.3  Assumption 
None. 

2.6.38.4  Approach 

(The  capability  to  generate  BPS  CRT  displays  has  been  deleted.  ) 

The  Failure  Status  Display  (Figure  11)  presents  all  the  controller,    detector, 
and  communications  failures  currently  recognized  by  the  UTCS.     The  type, 
equipment  identification  number,   time  and  date,    and  acknowledge  status  of 
each  failure  are  contained  in  the  Failure  Table  which  is  updated  by  two 
subroutines  of  Routine  K. 

The  System  Status  Display  (Figure  12)  presents,    for  each  section  in  the 
traffic  control  system,    its  current  operating  mode  and  pattern,    the  time  and 
desired  mode  of  the  latest  valid  operator  mode  change  request,    the  numbers 
of  CIC  intersections  in  operation,    and  the  numbers  of  detector  and  controller 
failures. 

The  Controller  Status  Display  (Figure  13)  lists  the  identification  number  and 
status  for  each  traffic  system  controller  in  standby,    or  designated  as  a  CIC 
controller  by  the  operator  but  inhibited  from  CIC  operation  because  of  the 
time- of- day,    or  currently  operating  as  a  CIC  controller.     Controllers  operat- 
ing under  traffic  system  control  but  which  have  not  been  designated  as  CIC 
controllers  are  not  listed. 

The  Detector  Status  Display  (Figure  14)  lists  all  detectors  in  stand-by  or 
which  have  failed.     Detectors  operating  normally  are  not  listed. 
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The  CRT  Intersection  Status  Display  (Figure  15)  provides  a  variety  of  infor- 
mation on  a  selected  intersection,    the  intersection  being  identified  by  its  con- 
troller number.     The  information  presented  includes  the  number  of  the  sec- 
tion of  which  the  intersection  is  a  member,    the  number  of  phases  at  the  inter- 
section,   and  the  duration  of  the  intervals  in  the  controller  cycle.     The  cycle 
length,    offset  value,    and  the  lengths  of  the  variable  green  intervals  for  A-  and 
B-Phase  are  also  displayed  along  with  minimum  values  of  A- Phase  Green. 
The  controller  mode  and  pertinent  link  data  completes  the  display. 

In  addition  to  the  display  functions  performed  by  Routine  K,  two  Failure 
Table  Updating  functions  are  also  performed:    (1)  Add,   and  (2)  Failure 
Acknowledge /Failure  Repair. 

The  Add  portion  of  the  routine  is  entered  whenever  a  failure  is  identified  by 
one  of  the  other  operational  routines.     The  routine  is  entered  with  the 
number  of  the  failed  component  and  a  code  designating  the  nature  of  the 
failure,   whether  controller,    detector,   or  communications.     The  Add  function 
adds  the  component,  along  with  present  time,  to  the  Failure  Status  table 
and  increments  the  appropriate  System  Status  failure  list.     The  Audible 
Alarm  and  the  appropriate  warning  light  are  turned  on  to  alert  the  operator. 

The  Failure  Acknowledge  /Failure  Repair  portion  of  the  routine  is  entered  from 
the  Manual  Control  Panel  Processing  Routine  with  the  number  of  the  equip- 
ment and  its  type.     The  table  of  failures  is  searched  to  locate  the  component 
in  question.     If  it  is  not  found,   a  Failure  Error  Flag  (FLRFL)  is  set.     If  it 
is  found,   the  appropriate  code  is  added  to  the  display  table.     If  the  Failure 
Repair  function  is  required,   the  component  is  removed  from  the  table  and 
other  components  moved,  where  required,  to  close  the  gap  in  the  table.     The 
appropriate  System  Status  failure  list  is  decremented,  the  Audible  Alarm  is 
turned  off,   and  the  appropriate  warning  lightris  extinguished.     Control  is 
then  returned  to  the  Manual  Control  Panel  Processing  Routine. 
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CONTROLLER  NUMBER  (ITRNM) 
LEGEND  ABBREVIATION:  I 

SECTION  NUMBER  (CNSEC(l)) 

ACTUAL  OFFSET  (CUROF  (  I)  ) 

MASTER  SYNC     SET  TO  "Y"  IF 
BACKGROUND  CYCLE  CORRESPOND 
ING  TO  CONTROLLERS'  CYCLE 
LENGTH  IS  SYNCHRONIZED 
WITH  COMPUTER  CLOCK. 

CYCLC(I)    OF   KCTF=1. 
OTHERWISE  SET  TO  "N" 


15) 


© 


© 


© 


10) 


© 


© 
(14) 


C. I.C.  STATUS: 

STATUS 

IF  BIT  1  OF: 

HEL 

CICSF  =0 

INH 

CICSF  -  1.CICEF 

=  0 

ACT 

CICEF  =  l.CICTF 

--0 

THLD 

CICTF  =  1 

Nl 

CICSY.O 

LINK  DATA  HEADER: 
DISPLAYED  AS  SHOWN  IN 
NORMAL  OPERATIONS.    IF 
CONTROLLER  IS  IN  A 
TRANSITIONAL  CYCLE, 
(Ml  (l))t  0)  HEADER 
IS  REPLACED  BY 

"CONTROLLER  IN  TRANSITION," 
AND  THE  LOWER  SECTION  OF 
THE  PAGE  IS  BLANKED  OUT. 

LINK  NUMBER:    LINK  NUMBERS  FROM 

CNTLN.   FIRST  LINK  IS 

POINTED  TO  BY  LSI(I) 

AND  THE  TERMINAL  LINK  NUM 

BER  IS  INDICATED  BY  THE 

NEXT  SUCCEEDING  POSITIVE 

VALUE  OF  LSI.   IF  LSI(I) 

=    1.  CONTROLLER  HAS  NO 

LINKS,  AND  THE  MESSAGE 

"NOT  INSTRUMENTED" 

ISOUTPUTTED. 

LEGEND  ABBREVIATION:  L 


© 


MINIMUM  A  PHASE  GREEN 
DURATION     GGGG(4*I) 


@     A-riiASE   GREEN    DURATION 
SS5S(4*I)+INTDU(K) 
WHERE    K=16* I fVRINT ( 4*1 ) 

©     B-PHASE    GREEN    DURATION 
SSSS(4*Ifl)+INTDU(K) 
WHERE    K=16*IfVRINT(4*H-D 


(18J 


C-PHASE  GREEN  DURATION 

SSSS(4*H-2)+INTDU(K) 

K=lb*I+-VRlNT(4*I+-2) 

CONTROLLER  STATUS 
STATUS  IF  BIT  I.  OF: 


STBY 

OL 

FAIL 


HOLD  =  0 
HOLD  -  1 
CMALF  =  1 


ENTRY  OFFSET:   (ENOFF(I)) 

CYCLE  LENGTH     KCL(K) 
WHS  RE  K  --  CYCLC  (I) 


INTF.fWAL  DURATIONS: 
lis TDU  !16-l  +  Kl  WHERE 
X  HANGcS  FROM  0  TO 
A  MAX  OF  '0.  LAST  INT 
ERVAL  IS  DETERMINED  BY 
A  DURATION  OF  O  IF  LESS 
THAN  16  INTERVALS 


LINK  PHASE     (LNKPT(L)OR  LI 

CODES  ARE: 

0.1 

=    A 

2,3 

=    B 

4 

=    C 

6 

=    D 

LINK  DIRECTION:  ILINKDKD) 

CODES  ARE: 

0 

=  N  = 

NORTH 

1 

=  S  = 

SOUTH 

2 

=  E  = 

EAST 

3 

=  W  = 

WEST 

4 

=  NE 

=  NORTHEAST 

5 

=  NW 

=  NORTHWEST 

6 

=  SE 

= SOUTHEAST 

7 

=  SW 

=  SOUTHWEST 

8 

=  EO 

-  EAST  OUTBOUND 

(19)      LINK  OCCUPANCY    (AHCC(L)*  100) 

@      LINK  VOLUME  =  (VOL(L)I 

(2l)      LINK  SPEED:  (SBAR(D) 

@     MESSAGE  OUTPUT  WHEN  A 

DETECTOR  FAILURE  ON  THE 
LINK  HAS  OCCURRED 


Figure  15.     Intersection  Status  Format  (Concluded) 
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The  CRT  Control  and  Data  Formatting  Routine  comprises  three  separate  sub- 
programs.    Routine  K  proper  generates  a  buffer  of  data  for  the  specified 
status  display  and  causes  that  buffer  to  be  output  to  the  appropriate  CRT. 
Subroutines  KFMT  and  KFTU  update  the  Failure  Table  whose  contents  may 
be  presented  by  the  Failure  Status  Display. 

Routine  K  is  scheduled  by  the  Manual  Control  Panel  Routine  (M)  as  a  result 
of  an  operator  status  display  request,   by  the  Executive  Routine  (A),   once 
per  25  seconds  for  updating  current  displays,   and  by  the  Start-Up  Routine  (Y) 
for  displaying  initial  System  Status.     The  Level  3  executive  routine  will  then 
enter  Routine  K  whenever  there  are  no  other  higher  priority  Level  3  tasks 
to  be  performed. 

On  the  other  hand,   Subroutine  KFMT  (Acknowledge/Repair)  is  entered  di- 
rectly by  its  calling  program,    Routine  M;  KFTU  is  entered  by  scheduling 
Routine  K  and  setting  flags  to  tell  Routine  K  that  there  are  failures  to  be 
added  to  the  failure  table. 

Both  CRT's  are  updated  each  time  a  display  request  is  made,   unless  an 
error  condition  exists  on  one  of  CRT  lines.     CRT  1  is  updated  first. 

Routine  K  determines  which  display  pages  have  been  requested  by  examining 
the  CRT  Display  Code  (global  variables  CRTD1  or  CRTD2).     Display  Code 
values  of  1,   2,    3,   4,  and  5,   correspond  respectively  to  Failure  Status, 
System  Status,  Controller  Status,   Detector  Status,   and  Intersection  Status. 
Routine  K  branches  to  the  appropriate  program  segment  to  obtain  the  data 
to  be  displayed,  to  format  it,  and  to  enter  it  in  the  output  buffer  for  the 
selected  CRT. 

Utility  subroutines  are  used  to  convert  and  format  display  data.     For  each 
display  type,   Routine  K  first  initializes  the  buffer  and  generates  a  "boiler- 
plate" display  containing  fixed  formats,   column  headings,   etc.     It  then 
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converts  the  variable  display  data  and  enters  them  into  the  output  buffer. 
All  CRT  characters  are  displayed  in  a  protected  mode  to  assure  non- 
interference from  the  CRT  keyboard. 

After  completing  the  output  buffer  for  the  CRT,   Routine  K  stores  the  number 
of  characters  to  be  output  from  the  buffer,   sets  the  Output  Channel  Active 
Flag  for  the  selected  CRT  and  triggers  the  Level  4  interrupt  (X'68').     The 
actual  character-by-character  transmission  to  the  CRT  is  initiated  by 
Routine  CRTOUT.     The  transfer  is  accomplished  using  RBM  supplied 
Character  Oriented  Communications  (COC)  software.     The  output  is  trans- 
mitted over  standard  XDS  Sigma  5  TTY  interface. 

Array  Formats  --  The  Failure  Table  (FLTAB)  has  a  capacity  of  200  entries. 
Each  four-word  entry  has  the  format: 

Word  1,   Byte  0:     Acknowledge  status  (0  for  NO,    1  for  YES) 

Byte  1:     Equipment  type  code  (3  for  controller,   4  for 
detector,    5  for  communications) 

Byte  2,    3:     Equipment  identification  number  (binary) 

Word  2,   Byte  0:     b 

Byte  1:     h 

EBCDIC  characters  for  time  (hour  and 

Byte  2:  h  minute)  of  failure. 

Byte  3:  m 

Word  3,   Byte  0:  m 

Byte  1:  b 
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Byte  2:     M 

Byte  3:     M  EBCDIC  characters  for  abbreviated  month 


Word  4,   Byte  0:  M 

Byte  1:  b 

Byte  2:  D 

Byte  3:  D 


EBCDIC  characters  for  date 


Note  that  the  EBCDIC  character  string  for  the  time  and  date  of  the  failure 
can  be  obtained  using  the  RBM  TIME  CAL  and  stored  in  the  Failure  Table 
in  a  suitable  format. 

The  Sectional  Controller  Failure  Count  Array  (SECFC)  has  a  word  capacity 
equal  to  the  number  of  sections  in  the  traffic  control  system  (N    ).     Each 
one-word  entry  contains,   in  binary,  the  number  of  failed  controllers  con- 
tained in  the  section. 

SECFC(l):    Number  of  failed  controllers  in  Section  1 
SECFC(2):    Number  of  failed  controllers  in  Section  2 


SECFC(N    ):    Number  of  failed  controllers  in  Section  N 
s  s 

The  Sectional  Detector  Failure  Count  Array  (SCDFC)  has  a  word  capacity 
equal  to  the  number  of  sections  in  the  traffic  control  system  (N    ).     Each 
one -word  entry  contains,   in  binary,   the  number  of  failed  detectors  con- 
tained in  this  section. 
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SCDFC(l):       Number  of  failed  detectors  in  Section  1 
SCDFC(2):       Number  of  failed  detectors  in  Section  2 


SCDFC(N    ):    Number  of  failed  detectors  in  Section  N   . 

s  s 


2.6.38.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 


198 


0 


YES 


RESET  CRT  UPDATE 

TIME 

KCNT  =  25 


CALL  FAILURE  TABLE 
UPDATE  SUBROUTINE 
KFTU 


C 


RESCHEDULE  ROUTINE 
K  FOR  OTHER  CRT 


SET  CRT  ACTIVE 
FLAG  FOR  THIS  CRT 


TRIGGER  LEVEL  4 
INTERRUPT  TO 
INITIATE  CRT  OUTPUT 


FORMAT  TIME  AND 
STORE  IN  BUFFER, 
GET  HEADER  FOR 
SELECTED  DISPLAY 
AND  STORE  IN 
BUFFER 


EXIT  TO  ROUTINE 


Routine  K 
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YES  (DETECTOR) 


YES  (INTERSECTION) 


FORMAT  PANIC  MESSAGE 
AND  PUT  IN  CRT  BUFFER 


Routine  K  (Continued) 
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FORMAT  FAILURE  STATUS 
PAGE  AS  PER  FIGURE  11 


FORMAT  SYSTEM  STATUS 
PAGE  AS  PER  FIGURE  12 


FORMAT  CONTROLLER 
STATUS  PAGE  AS  PER 
FIGURE  13 


FORMAT  DETECTOR 
STATUS  PAGE  AS  PER 
FIGURE   14 


0 


FORMAT  INTERSECTION 
STATUS  PAGE  FOR  SPEC- 
IFIED CONTROLLER 
(INTRNUM)AS  PER  FIGURE 
15 


Routine  K  (Concluded) 
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2.6.39    SUBROUTINE  CIC 

2.6.39.1  Purpose 

Subroutine  CIC  counts  the  number  of  active  critical  intersection  controllers. 

2.6.39.2  Relationship 

This  subroutine  is  called  from  routines  K  and  STAT  by: 

CALL  CIC  (ICEF,    IR4,    CICCT) 
where: 

•  ICEF  =  word  index  for  bit  interleaved  array  (CICEF) 

•  IR4  =  word  index  for  bit  array  (CICSC) 

•  CICCT  =  number  of  CICs  to  be  returned 
This  subroutine  calls  GETBI. 

2.6.39.3  Assumption 
None. 

2.6. 39.4  Approach 

Subroutine  CIC  examines  corresponding  bits  in  the  CICEF  and  CICSC  arrays 
and  if  they  are  both  set,    increments  CICCT. 

2.6.39.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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Subroutine  CIC 
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2.6.40    SUBROUTINE  CN VT 

2.6.40. 1  Purpose 

Subroutine  CNVT  converts  EBCDIC  characters  to  ASCII  characters. 

2.6.40.2  Relationship 

This  subroutine  is  called  from  routines  GREEN,    K,    and  SCODE  by: 

CALL  CNVT  (ADDR,    NUM,    BSD 
where: 

•  ADDR  =  address  of  character  string 

•  NUM  =  number  of  characters  to  be  converted 

•  BSI  =  CRT  output  buffer  (CRTB1)  store  index 
This  subroutine  calls  GETBY,    PTBY. 

2.6.40.3  Assumption 

System  uses  EBCDIC  character  codes. 

2.6.40.4  Approach 

Subroutine  CNVT  examines  the  NUM  characters  stored  in  ADDR,    converts 
them  to  ASCII  format,    and  stores  them  in  the  BSI  array. 

2.6.40.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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©- 


YES 


IN  =1 


INDEX  =  4 


CALL  GETBY 

(ADPR,  IN,  CHAR) 


YES 


CHAR  = 

CHAR-  CONVI 
(INDEX) 

' 

r 

CALL  PTBY 
(CRTB1,  BSI,  CHAR) 

i 

BSI  =  BSI  +1 

*0 


*s 


Subroutine  CNVT 
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0 


9=  INDEX 


YES 


TASC  (INDEX)  =  IASC 


I 


CALL  PTBY 
(CRTB1,  BSI,  IASC) 


I 


BSI  +  1=  BSI 


© 


Subroutine  CNVT  (Continued) 
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\ 


INDEX  =  INDEX-1 


IN  =  IN+L 


YES 


IASC=  61 


*© 


CRTBI(1-*NUM  +BSI) 
=  ADDR(1-*NUM) 


(  RETURN  J 


Subroutine  CNVT  (Concluded) 
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2.6.41    SUBROUTINE  CRLF 

2.6.41.  1    Purpose 

Subroutine  CRLF  spaces  the  CRT  cursor  down  (N)  lines. 

2.6.41.2  Relationship 

This  subroutine  is  called  from  subroutines  GREEN  and  K  by: 
CALL  CRLF  (BSI,    N) 

where: 

BSI  =  CRT  buffer  store  index 

N  =  number  of  lines  to  space  down  on  CRT 

This  subroutine  calls  PTBY. 

2.6.41.3  Assumption 
None. 

2.6.41.4  Approach 

Subroutine  CRLF  stores  in  carriage  returns  in  the  BSI  array. 

2.6.41.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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CALL  PTBY 
(CRTB1,  BSI,  ICR) 


I 


1  =  1+1 

BSI  =  BSI  +1 


YES 


BSI  =  BSI  +1 


^  RETURN J 


Subroutine  CRLF 
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2.6.42    SUBROUTINE  DCMAL 

2.6.42    Purpose 

Subroutine  DCMAL  converts  a  number  scaled  Bl  to  decimal  scaled  10,  inserts 
a  decimal  point  and  stores  it  in  the  CRT  buffer. 

2.6.42.2  Relationship 

This  subroutine  is  called  from  subroutine  GREEN  by: 

CALL  DCMAL  (BSI,    NUMB) 
where: 

BSI  =  CRT  buffer  store  index 

NUMB  =  number  scaled  Bl  to  be  converted  to  F4.  1  format 
This  subroutine  calls  DISNM. 

2.6.42.3  Assumption 
None. 

2.6.42.4  Approach 

Subroutine  DCMAL  converts  the  scaled  integer  NUMB  to  F4.  1  format  and 
stores  it  in  the  BSI  array. 

2.6.42.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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C  ENTER  J 

1! 

NUM  =  NUMB*5 


I 


CALL  DISNI 
(BSI,  NUM) 


I 


CALL  GETBY 
(CRTB1,BSI-1,  LAST) 


I 


CALL  PTBY 
(CRTB1,  BSI-1,  IDP) 


I 


CALL  PTBY 
(CRTB1,  BSI,  LAST) 


i 


BSI  =  BSI  +  1 

(^RETURN  J 
Subroutine  DCMAL 
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2.6.43    SUBROUTINE  DISIN 

2.6.43.1  Purpose 

Subroutine  DISIN  initializes  the  CRT  buffer. 

2.6.43.2  Relationship 

This  subroutine  is  called  from  Routine  K  by: 

CALL  DISIN  (BPI) 
where: 

BPI  =  byte  index  for  CRT  buffer  (CRTB1) 
This  subroutine  calls  PTBY. 

2.6.43.3  Assumption 
None. 

2.6.43.4  Approach 

DISIN  fills  the  CRT  buffer  with  blanks,    then  places  the  first  two  words  in 
the  CRT  buffer. 

2.6.43.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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f       ENTRY       ^ 


IBYTE  =  NBMCH/8 


1=  1  TO  IBYTE 


CALL  PTBY 
(IBLKW,  I,  IBLNK) 


NCRTB  = 

BPI  +  2048/IBYTE 
ISTRT  = 
BPI/IBYTE  +1 


1=  ISTRT  TO  NCRTB 
CRTB1(I)=  IBLKW 


CALL  PTBY 
(CRTB1,  BPI,  LEAD) 

' 

' 

CALL  PTBY 
(CRTB1,  BPI  +  1, 
IC2R) 

' 

' 

CALL  PTBY  ' 
(CRTB1,  BPI  +  2, 
IDEL) 

CALL  PTBY 
(CRTBI,  BPI  +  3, 
IDEL) 


Subroutine  DISIN 
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CALL  PTBY 
(CRTBl,BPI+4,  LEAD) 


I 


CALL  PTBY 
(CRTB1,  BPI +  5, 
ISBKG) 


I 


CALL  PTBY 
(CRTB1,  BPI  +  6,  0) 


I 


CALL  PTBY 
(CRTB1,  BPI  +  7,  0) 


I 


BPI  +  8=  BPI 


[   RETURN  J 


Subroutine  DISIN  (Concluded) 
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2.6.44    SUBROUTINE  DISNM 

2.6.44.1  Purpose 

Subroutine  DISNM  converts  a  binary  number  to  ASCII  and  stores  the  results 
in  the  CRT  buffer  (CRTB1). 

2.6.44.2  Relationship 

This  subroutine  is  called  from  routines  DCMAL  and  K  by: 

CALL  DISNM  (BPI,    NUMB) 
where: 

BPI  =  byte  index  of  CRT  buffer  (CRTB1) 

NUMB  =  the  binary  number  to  be  converted. 
This  subroutine  calls  PTBY. 

2.6.44.3  Assumption 
None. 

2.6.44.4  Approach 

DISNM  isolates  each  binary  digit  of  NUMB,    converts  it  to  ASCII  by  adding 
48,    and  stores  it  in  the  CRT  buffer. 

2.6.44.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 


215 


f        ENTER J 


NUM  =  NUMB 
INDEX  =  BPI  +  3 
1  =  1 


IREM  =  NUM  -8ffl 
IREST=  NUM/10 


YES 


YES, 


YES. 


IREM  =  -16 


IREM  =  IREM  +16 


CALL  PTBY 

(CRTB1,  INDEX,  IREM) 


INDEX  =  INDEX-1 
NUM  =  IREST 
1=1+1 


U 


rYES 

BPI  =  BPI  +4 

1 

' 

(        RETURN     } 

Subroutine  DISNM 
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2.6.45    SUBROUTINE  GREEN 

2. 6.45. 1  Purpose 

This  routine  stores  desired  phase  label  in  CRT  buffer. 

2.6.45.2  Relationship 

This  subroutine  is  called  from  Routine  K  by:: 

CALL  GREEN  (BSI,    INDEX,    IPHAS) 
where: 

BSI  =  the  CRT  buffer 

INDEX  =  index  to  SSSS  and  GGGG  arrays 

IPHAS  =  1  A-phase  green 
=  2  B-phase  green 
=  3  C-phase  green 

This  subroutine  calls  CNVT,    GETBY,    DCMAL,    CRLF. 

2.6.45.3  Assumption 
None. 

2.6.45.4  Approach 

Subroutine  GREEN  calls  on  subroutine  CNVT  to  convert  the  character  string 
specified  by  IPHAS  to  ASCII  code  and  store  it  in  the  CRT  buffer.     The  phase 
duration  is  then  converted  to  F4.  1  format  and  stored  in  CRT  buffer.     Finally 
a  carriage  return  is  placed  in  the  buffer  and  GREEN  returns  to  the  calling 
routine. 
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2.6.45.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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(         ENTER    J 


NUMB  =  0 
BSI  =  BSI  +  6 
NCHAR  =  12 


I 


CALLCNVT 

(APHASd,  IPHAS) 
,  NCHAR,  BSI 


CALL  GETBY 
(NMVAR,  NMC,  NVI) 


I 


YES 


>© 


CALL  GETBY 
(SSS,  INDEX,  ISSS) 


CALL  GETBY 
(VRINT,  INDEX,  INTV) 


Subroutine  GREEN 
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0 


INDX  =  INTV  +  NMC16 


I 


CALL  GETBY 
(INTDU,  INDX,  IVV) 


NUMB  =  ISSS  +  IVV 


CALL  DCMAL 
(BSI,  NUMB) 


CALL  CRLF 
(BSI,  1) 


I 


f       RETURN       J 


Subroutine  GREEN  (Concluded) 
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2.6.46    SUBROUTINE  KFTU 

2.6.46.1  Purpose 

This  subroutine  records  failures  in  the  fail  table  and  Turn  Failure  Light 
and  Alarm  On. 

2.6.46.2  Relationship 

This  subroutine  is  called  from  Routine  K  by: 

CALL  KFTU 
This  subroutine  calls  TODAY,    HALF,    PTBY,    GETBY,   INTRP,    PTBI. 

2.6.46.3  Assumption 
None. 

2.6.46.4  Approach 

KFTU  determines  the  current  day  and  time.     It  then  examines  the  failure 
entry  flags  and  determines  if  there  is  room  in  the  proper  tables  for  record- 
ing the  time  and  equipment  number  of  failed  devices.     PTBI  is  called  to  set 
two  bits,    in  order  to  activate  the  alarm  and  warning  light.     KFTU  then  returns 
to  the  calling  subroutine. 

2.6.46.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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YES 


FMTTY  =  5 

K=  COMTB  (IND) 


I 


FMTTY = 4 

K  =  DTTAB  (IND) 


L=  DWL  (K), 
L+  LNKCN  (L) 


L=  CNSEC  (L) 
SCDFC  (L)  = 
SCDFC  (L)+  1 


c 

ENTRY 

) 

i 

1 
J 

IND 

=  FTAB 
=  FTBWD 
=  1 

(COMM) 
YES 


(DET) 
YES 


FMTTY = 3 
K=  C0NTB 
L=  CNSEC  (K) 
SECFC  (L)  = 
SECFC  (L)  +  1 


i 


YES  (CONTROLLER) 


STORE  TYPE  K,  AND 
DATE  IN  NEXT  F.LTAB 
ENTRY  AS  PER 
SECTION  2.12.2 


J 


1=  1+  16,  J=  J  +  4 


N0FAL=  N0FAL+  1 


I 


IND  =  IND+  1 


Subroutine  KFTU 
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YES 


RESCHEDULE  ROUTINE 
K  FOR  OTHERS 


DISABLE  LEVEL  2 
INTERRUPT 


1 

FTAB  =  1 

FTBWD  =  J 

ENTFL=  -  1 

CLEAR  CURRENT 

ENTRY  FLAG 

ENABLE  LEVEL  2 

INTERRUPT 

KCNT=5  SEC 


TURN  ON  WARNING 
LIGHT  AND  ALARM 


C 


I 


EXIT 


) 


Subroutine  KFTU  (Concluded) 
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2.6.47    SUBROUTINE  TODAY 

2.6.47.1  Purpose 

Subroutine  TODAY  gets  the  current  time  of  day  from  the  RBM, 

2.6.47.2  Relationship 

This  subroutine  is  called  from  subroutine  KFTU  by: 

CALL  TODAY  (TIMBF) 
where: 


TIMBF  is  the  mnemonic: 

TIMBF  =  Time  of  day  (4  words) 


where 


h 

h      !     : 

m 

m 

o           m 

o 

n 

o           d 

d 

i 

'     1  y 

y 

hh  is  the  hour 
mm  is  the  minute 
mon  is  the  month 
dd  is  the  day 
yy  is  the  year. 


2.6.47.3    Assumption 


None. 


2.6.47.4    Approach 


This  subroutine  is  called  only  by  Subroutine  KFTU  in  Priority  Level  3  and 
is  therefore  not  required  to  be  re-entrant. 
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The  four  words  of  time  of  day  consist  of  EBCDIC  code  for. 


h 

h 

: 

m 

m 

m 

o 

n 

d 

d 

i 

i 

y 

y 

hh  is  the  hour  (o  <  hh  <  23) 
mm  is  the  minute  (o  ^  mm  <  59) 
where  mon  is  the  month  (3  letters) 

dd  is  the  day  (o  <  dd  <  31) 
yy  is  the  year  (oo  <  yy  <  99). 


2.6.47.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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c 


ENTER 


) 


PUT  CURRENT 
TIME  OF  DAY 
INTO  ARRAY  TBUFF 


I 


1  =  3 


I 


TIMBF(I)=  TBUFF(I) 


1 


=  1-1 


Subroutine  TODAY 
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2 .  6 .  48     SUBROUTINE  TRIG 

2.6.48.1  Purpose 

Subroutine  TRIG  triggers  an  interrupt  that  causes  Routine  A  to  schedule 
Subroutine  CRTOUT  of  Priority  Level  4. 

2.6.48.2  Relationship 

This  subroutine  is  called  from  Routine  K  by: 
CALL  TRIG 

2.6.48.3  Assumption 
None. 

2.6.48.4  Approach 

This  subroutine  is  called  from  Routine  K  and  is  therefore  not  required  to 
be  re-entrant. 

It  calls  on  the  Real-Time  Batch  Monitor  (RBM)  to  trigger  an  interrupt. 

2.6.48.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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( 

ENTER 

) 

ir 

TRIGGER  THE 
CRT  DEVICE 

" 

c 

RETURN 

) 

Subroutine  TRIG 
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2.6.49    SUBROUTINE  SCODE 


2.6.49.1    Purpose 


Subroutine  SCODE  stores  the  desired  status  code  for  the  detectors  and 
controllers  in  the  CRT  buffer. 


2.6.49.2  Relationship 

This  subroutine  is  called  from  Routine  K  by: 

CALL  SCODE  (BSI,    ICHAR,    IOUT,    LINE,    IRTRN) 

where: 

BSI  =  CRT  buffer  store  index 

ICHAR  =  Status  code  character  (1  =  S,    2  =  F,    3=0,    4=1,    5  =  D) 

IOUT  =  Current  number  of  items  on  this  print  line 

LINE  =  Current  line  count 

IRTRN  =  0  More  data  to  be  output,    continue  processing  upon 
returning  to  calling  routine 

=  1  Last  data,    go  to  output  wrap-up  in  calling  routine  upon 
returning. 

This  subroutine  calls  PTBY,    SETCR,    CNVT. 

2.6.49.3  Assumption 
None. 
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2.6.49.4    Approach 

SCODE  stores  the  desired  status  code  for  the  detectors  and  controllers  in 
the  CRT  buffer.     Provisions  are  included  to  limit  output  to  one  page. 


2.6.49.5    Listing 


See  Volume  III,    2GCF  Routine  Listings, 
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C         ENTER            J 

V 

BSI  =  BSI  +  2 

CALL  PTBY 
(CRTB1,  BSI,  IC) 

v 

IOUT=  IOUT  +1 
BSI  =  BSI +  2 
CNT10  =  CNT10-1 

CALL  PTBY 
(CRTBI,  BSI,  ICR) 


..YES 

►, 

ILOW 

=  27 

w 

IG0L=26 

1 

f 

CALL  SETCR 
(BSI,  IROW,  ICO) 

I 


BSI  =  BSI  +4 

CNTIO  =  10 
IRTRN  =  0 


(        RETURN  ) 


I 


NCHAR  =  16 
IRTRN  =  1 


I 


CALL  CNVT 
(TRUN1,  NCHAR,  BSI) 


"XT 

C     RETURN      J 


Subroutine  SCODE 
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2.6.50    SUBROUTINE  SETCR 

2. 6. 50. 1  Purpose 

Subroutine  SETCR  inserts  cursor  control  commands  in  the  CRT  buffer. 

2.6.50.2  Relationship 

This  subroutine  is  called  from  subroutine  SCODE  by: 

CALL  SETCR  (BPI,    IROW,    ICOL) 
where: 

BPI  =  CRT  buffer  pointer  index 

IROW  =  Binary  row  number 

ICOL  =  Binary  column  number. 
This  subroutine  calls  PTBY. 

2.6.50.3  Assumption 

None. 

2.6.50.4  Approach 

Subroutine  SETCR  makes  repeated  calls  to  subroutine  PTBY  to  store  a 
lead-in  character,    the  cursor  position  command,    and  the  row  (IROW)  and 
column  (ICOL)  numbers  in  the  CRT  buffer.     SETCR  then  returns  to  the 
calling  routine. 

2.6.50.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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f        ENTRY    J 
I 


IC=  ICOL 
IR=  IROW 
IR  =  IR-1 


CALL  PTBY 
(CRTB1,  BB1,  LEAD) 


i 


BPI  =  BPI  +1 


CALL  PTBY 
(CRTB1,  BPI,  ICP) 


BPI  =  BPI  +  1 


CALL  PTBY 
(CRTB1,  BPI,  IC) 
BPI  =  BPI  +1 


CALL  PTBY 
(CRTB1,  BPI,  IR) 


BPI  =  BPI+1 


f  RETURN     J 


Subroutine  SETCR 
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2.6.51    ROUTINE  M 

2.  6.  51.  1    Purpose 

Routine  M  evaluates  the  control  panel  inputs  for  reasonableness  and  stores 
the  data  and  flags  required  by  other  routines  to  perform  the  requested 
operations. 

2.6.51.2  Relationship 

This  routine  is  entered  at  half- second  intervals  whenever  time  remains 
after  the  completion  of  higher  priority  routines.     It  is  called  by  the  Executive 
Routine,    Routine  A,    as  part  of  the  Level  3  Priority  functions.     The  routine 
calls  Subroutine  MSUB  to  pack  and  unpack  data  from  the  control  panel  output 
and  input  words,    respectively.     Subroutines  HFMT  and  KFMT  are  also 
called. 

2.6.51.3  Assumption 

The  Manual  Control  Panel  is  operational. 

2.6.51.4  Approach 

(Figures  16  and  17  illustrate  the  Control  Panel  Output  and  Input  Bit  Assign- 
ments,   respectively.  ) 

Upon  entry,    Routine  M  resets  the  first  five  bits  of  the  control  panel  output 
word  (CPNOT).     A  check  is  made  of  the  PRINTOUT  SUPPRESS  button 
(CPNIN,    WORD2,    BIT  10)  and  if  it  is  set,    Routine  M  sets  the  15-minute 
report  flag  (PRTFL).     If  it  is  not  set  Routine  M  resets  the  15-minute  report 
flag.     Next  a  check  is  performed  to  see  if  any  of  the  enter  bits  (CPNIN, 
WORD1,    BITS  0-2)  are  set.     If  none  are  set,    Routine  M  exits. 
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System  Enter  --If  the  system  enter  bit  (CPNIN,   WORD1,   BIT  0)  is  set,  the 
system  ready  bit  of  the  control  panel  output  word  (CPNOT,   BIT  0)  is  set. 
The  shutdown  flag  (SHTFL)  is  checked.     If  it  is  set,  the  error  exit  is  taken. 
This  prevents  system  entries  during  shutdown.     At  the  error  exit  the  system 
error  bit  of  the  control  panel  output  word  (CPNOT,   BIT  3)  is  set.     If  the 
shutdown  flag  is  not  set,   a  check  is  made  to  see  if  this  is  a  shutdown  re- 
quest (CPNIN,   WORD2,   BIT  1).     If  it  is,   the  shutdown  flag  is  set,   Routine 
H  is  scheduled  and  Routine  M  exits.     If  it  is  not  shutdown,  the  traffic  con- 
trol bit  (CPNIN,  WORD3,   BIT  0)  and  CIC  bit  (CPNIN,   WORD  3,   BIT  1)  are 
checked.     If  none  are  set,   Routine  M  takes  the  error  exit. 

Traffic  Control  --  The  system  bit  (CPNIN,  WORD3,   BIT  3),  the  section  bit 
(CPNIN,   WORD3,   BIT  4),   the  controller  bit  (CPNIN,   WORD3,   BIT  5),   the 
detector  bit  (CPNIN,  WORD3,    BIT  6),   and  the  communications  bit  (CPNIN, 
WORD3,   BIT  7)  are  checked.     If  none  are  set  Routine  M  takes  the  error 
exit. 

If  the  system  bit  is  setj,   the  on-line  bit  (CPNIN,   WORD3,   BIT   10)  is  checked. 
If  it  is  set,  the  first  start  flag  (FSTFL)  is  checked  and  if  set  Routine  M 
takes  the  error  exit.     If  the  flag  is  not  set,   it  is  now  set,  the  15-minute 
section  flag  (FMSCF)  and  the  15-minute  system  flag  (FMSYF)  are  set,   and 
Routine  W  is  scheduled.     If  the  on-line  bit  is  not  set,  FSTFL  is  checked 
to  see  if  it  is  set.     If  it  isn't,   Routine  M  takes  the  error  exit.     If  the  flag 
is  set,   the  traffic  responsive  bit  (CPNIN,  WORD3,   BIT  8)  is  checked  and  if 
set  the  15-minute  section  flag  (FMSCF)  is  checked.     If  the  flag  is  set,  the 
wait  bit  of  the  control  panel  output  word  (CPNOT,   BIT  5)  is  set  and  Routine 
M  exits.     If  the  flag  is  not  set,  the  mode  change  desired  flags  (MCDF)  are 
set  for  all  sections  and  the  desired  mode  flags  (DMODE)  are  set  to  traffic 
responsive  for  all  sections.     If  the  traffic  responsive  bit  is  not  set,   the  time 
of  day  bit  (CPNIN,  WORD3,   BIT  9)  is  checked  and  if  it  is  set  the  15-minute 
section  flag  (FMECF)  is  checked.     If  the  flag  is  set,  the  wait  bit  of  the  con- 
trol panel  output  word  (CPNOT,   BIT  5)  is  set  and  Routine  M  exits.     If  the 

\ 
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flag  is  not  set,  the  single  section  flag  (SSFW)  is  reset,   the  mode  change 
desired  flags  (MCDF)  are  set  for  all  sections,  the  desired  mode  flags 
(DMODE)  are  set  to  time  of  day  for  all  sections,   the  15 -minute  section 
flag  (FMSCF)  is  set,  the  section  number  (J J)  is  set  to  zero  and  Routine  W 
is  scheduled.     If  the  time  of  day  bit  is  not  set,  the  standby  bit  (CPNIN, 
WORD3,   BIT   11)  is  checked  and  if  set  the  mode  (MODES)  and  desired  mode 
flags  (DMODE)  are  set  to  standby  for  all  sections,   the  automatic  control 
desired  flags  (AUTOF)  are  reset  for  all  controllers,   the  standby  desired 
flags  (STBYD)  are  set  for  all  controllers.     If  the  standby  bit  is  not  set, 
the  record  history  on  bit  (CPNIN,  WORD3,   BIT  12)  is  checked  and  if  set 
the  record  history  flag  (HRF)  is  set.     If  the  record  history  on  bit  is  not 
set,  the  record  history  off  bit  (CPNIN,  WORD3,   BIT   14)  is  checked  and  if  set 
the  record  history  flag  (HRF)  is  cleared.     If  none  of  the  bits  are  set,   Routine 
M  takes  the  error  exit.     The  change  table  formatting  routine  (HFMT)  is 
called  to  log  the  change  and  Routine  M  exits. 

If  the  section  bit  is  set,  the  first  start  flag  (FSTFL)  is  checked  and  if  not 
set  Routine  M  takes  the  error  exit.     If  the  flag  is  set,  the  section  number 
is  obtained  from  CPNIN,   WORD3,   BITS  16-31.     If  the  section  number  is 
greater  than  the  number  of  sections  in  the  system  (NMSCT),  Routine  M  takes 
the  error  exit.     The  traffic  responsive  bit  is  checked  (CPNIN,  WORD3,   BIT  8) 
and  if  it  is  set  the  15-minute  section  flag  (FMSCF)  is  checked.     If  the  flag  is 
set,  the  wait  bit  of  the  control  panel  output  word  (CPNOT,   BIT  5)  is  set  and 
Routine  M  exits.     If  the  flag  is  not  set,  the  mode  change  desired  flags 
(MCDF)  are  set  for  the  section  and  the  desired  mode  flags  (DMODE)  are 
set  to  traffic  responsive  for  the  section.     If  the  traffic  responsive  bit  is  not 
set,  the  time  of  day  bit  (CPNIN,  WORD3,   BIT  9)  is  checked  and  if  it  is  set 
the  15-minute  section  flag  (FMSCF)  is  checked.     If  the  flag  is  set,  the  wait 
bit  of  the  control  panel  output  word  (CPNOT,   BIT  5)  is  set  and  Routine  M 
exits.     If  the  flag  is  not  set,  the  single  section  flag  (SSFW)  is  set,   the  mode 
change  desired  flags  (MCDF)  are  set  for  the  section,   the  desired  mode  flags 
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(DMODE)  are  set  to  time  of  day  for  the  section,    the  15-minute  section  flag 
(FMSCF)  is  set,    the  section  number  (JJ)  is  set  equal  to  the  input  section  num- 
ber minus  1,    and  Routine  W  is  scheduled.     If  the  time  of  day  bit  is  not  set, 
the  manual  pattern  bit  (CPNIN,    WORD4,    BIT  0)  is  checked  and  if  it  is  set  the 
pattern  number  is  obtained  from  CPNIN,    WORD4,   BITS  4-15.     A  check  is 
made  to  see  if  this  is  a  valid  pattern  number  of  this  time  of  day.     If  it  isn't 
Routine  M  takes  the  error  exit.     If  it  is  a  valid  pattern  number  the  15-minute 
section  flag  (FMSCF)  is  checked.     If  the  flag  is  set,    the  wait  bit  of  the  control 
panel  output  word  (CPNOT,    BIT  5)  is  set  and  Routine  M  exits.     If  the  flag  is 
not  set,   the  mode  change  desired  flags  (MCDF)  is  set  for  this  section,    the 
desired  mode  flags  (DMODE)  are  set  to  manual  pattern  for  this  section,   the 
desired  pattern  number  (DPTNM)  is  set  equal  to  the  inputted  pattern  number 
minus  one,  the  15-minute  section  flag  (FMSCF)  is  set,   the  section  number  (JJ) 
is  set  equal  to  the  inputted  section  number  minus  1,   and  Routine  W  is 
scheduled.     If  the  manual  pattern  bit  is  not  set,  the  standby  bit  (CPNIN, 
WORD3,   BIT   11)  is  checked  and  if  it  is  set  the  mode  (MODES)  and  desired 
mode  flags  (DMODE)  are  set  to  standby  for  this  section,  the  automatic  con- 
trol desired  flags  (AUTOF)  are  reset  for  all  controllers  in  section  and  the 
standby  desired  flags  (STBYD)  are  set  for  all  controllers  in  section.     If 
none  of  the  bits  are  set,   Routine  M  takes  the  error  exit.     The  change  table 
formatting  routine  (HFMT)  is  called  to  log  the  change  and  Routine  M  exits. 

If  the  controller  bit  is  set,   the  controller  number  is  obtained  from  CPNIN, 
WORD3,   BITS  16-31.     If  the  inserted  number  is  greater  than  the  number  of 
controllers  in  the  system  (NMCTL),   Routine  M  takes  the  error  exit.     The 
failure  repair  bit  (CPNIN,  WORD3,   BIT  15)  is  checked  and  if  it  is  set  the 
acknowledge /repair  failure  table  routine  (KFMT)  is  called  to  log  the  repair. 
If  the  failure  is  not  in  the  table  (FLTAB),   Routine  M  takes  the  error  exit. 
After  the  repair  is  logged,   the  controller  malfunction  flag  (CMALF)  is 
cleared  for  this  controller.     If  the  failure  repair  bit  is  not  set,   the  first 
start  flag  (FSTFL)  is  checked.     If  the  flag  is  not  set,   Routine  M  takes  the 
error  exit.     If  the  flag  is  set,   the  on-line  bit  (CPNIN,   WORD3,    BIT   10)  is 


239 


checked  and  if  it  is  set  the  section  containing  this  controller  is  checked  to 
see  if  the  section  is  in  standby.     If  it  is,   Routine  M  takes  the  error  exit. 
Next  a  check  is  performed  to  see  if  this  controller's  malfunction  flag 
(CMALF)  is  set.     Again  Routine  M  takes  the  error  exit  if  the  flag  is  set. 
Finally  a  check  is  made  to  see  if  the  controller  is  in  standby  (HOLD)  and 
if  it  is  not  Routine  M  takes  the  error  exit.     If  all  the  tests  are  passed,  the 
automatic  desired  flag  (AUTOF)  for  this  controller  is  set.     If  the  on-line  bit 
is  not  set,  the  standby  bit  (CPNIN,  WORD3,   BIT   11)  is  checked  and  if  it  is 
set  the  standby  desired  flag  (STBYD)  is  set  for  this  controller  and  the  auto- 
matic desired  flag  (AUTOF)  is  reset  for  this  controller.     If  the  on-line  bit 
is  not  set,  the  failure  acknowledge  bit  (CPNIN,   WORD3,   BIT  13)  is  checked 
and  if  this  bit  is  set  the  acknowledge /repair  failure  table  routine  (KFMT)  is 
called  to  log  the  acknowledge.     If  the  failure  is  not  in  the  failure  table  (FLTAB), 
Routine  M  takes  the  error  exit.     If  the  failure  acknowledge  bit  is  not  set  the 
A -Phase  Green  bit  (CPNIN,   WORD4,   BIT  1)  is  checked  and  if  set  the  con- 
troller in  standby  flag  (HOLD)  is  checked  for  this  controller.     If  this  con- 
troller is  in  standby,   Routine  M  takes  the  error  exit.     If  this  controller 
is  not  in  standby,   a  check  is  performed  to  see  if  it  is  currently  operating 
as  a  CIC  controller  (CICEF  =  1).     If  it  is,   Routine  M  takes  the  error  exit. 
The  request  must  wait  if  the  controller  is  to  be  placed  into  transition 
(TRNSF  =  1),    is  in  transition  (MI  t  0)  or  the  15-minute  section  flag  (FMSCF) 
is  set.     If  the  request  must  wait,   the  wait  bit  of  the  control  panel  output 
word  (CPNOT  BIT  5)  is  set  and  Routine  M  exits.     If  the  request  is  to  be 
handled  now,   the  A-Phase  Green  is  obtained  from  CPNIN  WORD  4,   BITS 
4-15.     If  the  inserted  A -Phase  Green  is  less  than  the  min  (GMABC)  allowed 
for  this  controller,   Routine  M  takes  the  error  exit.     Using  the  inserted  A- 
Phase  Green  a  new  B-Phase  Green  is  computed,   if  this  is  less  than  the  min 
(GMABC)  allowed  for  this  controller,   Routine  M  takes  the  error  exit.     If 
the  inserted  value  is  good,  the  operator  adjusted  A-Phase  Green  (GAWTP) 
and  the  operator  adjusted  B-Phase  Green  (GBWTP)  are  stored  for  this 

controller.     The  operator  split  change  flag  (SPLCH)  is  set  for  this  controller. 

I"  VPH  AS  A"1 
The  new  split  value   SPLIT  (controller)  =    VPHASB 
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x  1000  is  then  stored  and 


the  hold  split  flag  (HLDSPL)  is  set  for  this  controller.     If  the  A-Phase  Green 
bit  is  not  set,   the  offset  bit  (CPNIN,   WORD4,   BIT  2)  is  checked  and  if  it  is 
set  the  controller  in  standby  flag  (HOLD)  is  checked  for  this  controller.      If 
this  controller  is  in  standby,    Routine  M  takes  the  error  exit.      If  the  controller 
is  not  in  standby,   a  check  is  performed  (just  as  in  the  A-Phase  Green  case 
above)  to  see  if  the  controller  is  in  transition,    about  to  be  placed  in  transition 
or  the  15-minute  section  flag  (FMSCF)  is  set.      If  any  of  these  conditions  are 
met,  the  request  must  wait.      The  offset  value  is  obtained  from  CPNIN,  WORD4, 
BITS  4-15.     If  the  inserted  offset  is  greater  or  equal  to  the  cycle  length 
(KCL),    Routine  M  takes  the  error  exit      If  it  is  a  valid  offset,   it  is  stored  as 
the  working  offset  (WRKOF)  for  this  controller  and  the  offset  change  flag 
(FSTCF)  is  set  for  this  controller.     The  relationships  between  the  selected 
offset  for  this  controller  and  the  offsets  for  its  neighbor  are  recorded.      The 
hold  offset  flag  (HLDOFF)  is  set  for  this  controller.     If  none  of  the  bits  are 
set,    Routine  M  takes  the  error  exit.      The  change  table  formatting  routine 
(HFMT)  is  called  to  log  the  change  and  Routine  M  exits. 

If  the  detector  bit  was  set,   the  detector  number  is  obtained  from  CPNIN, 
WORD3,    BITS  16-31.     If  the  detector  number  that  is  inserted  is  greater 
than  the  number  of  detectors  in  the  system  (NMVED),   Routine  M  takes 
the  error  exit.     If  the  inserted  detector  number  is  valid,   the  on-line  bit 
(CPNIN,   WORD3,   BIT   10)  is  checked  and  if  it  is  set  the  detector  failure 
flag  (DMALF)  and  the  communications  failure  flag  (MMALF)  is  checked  for 
this  detector.     If  either  are  set,   Routine  M  takes  the  error  exit.     If  the 
detector  is  operating,   the  detector  standby  flag  (DIS)  is  cleared  for  this 
detector.     If  the  on-line  bit  is  not  set,   the  standby  bit  (CPNIN,   WORD3, 
BIT   11)  is  checked  and  if  set  the  detector  standby  flag  (DIS)  is  set  for  this 
detector.     If  the  detector  in  standby  bit  is  not  set,   the  failure  repair  bit 
(CPNIN,   WORD3,   BIT   15)  is  checked  and  if  set  the  acknowledge/repair 
failure  table  routine  (KFMT)  is  called  to  log  the  repair.     If  the  failure  is 
not  in  the  table  (FLTAB),   Routine  M  takes  the  error  exit.     After  the  repair 
is  logged,  the  detector  failure  flag  (DMALF)  is  cleared  for  this  detector.     If 


241 


the  failure  repair  bit  is  not  set,  the  failure   acknowledge  bit  (CPNIN,   WORD3, 
BIT  13)  is  checked  and  if  it  is  set  a  check  is  made  of  the  first  start  flag 
(FSTFL).      If  this  flag  is  not  set,   Routine  M  takes  the  error  exit.      If  the  flag 
is  set,  the  acknowledge /repair  failure  table  routine  is  called  to  log  the 
acknowledge.     If  the  failure  is  not  in  the  table  (FLTAB),   Routine  M  change 
table  formatting  routine  (HFMT)  is  called  to  log  the  change  and  Routine  M 
exits. 

If  the  communications  bit  was  set,  the  logic  is  exactly  the  same  as  for  de- 
tector except  that  the  only  valid  requests  are  for  failure  repair  and  failure 
acknowledged,   and  on  a  failure  repair  the  corresponding  communications 
failure  flag  (CMMAL)  is  cleared. 

CIC  --  The  system  bit  (CPNIN,  WORD3,   BIT  3),  the  section  bit  (CPNIN, 
WORD3,   BIT   10)  is  checked  and  if  it  is  set  the  CIC  selected  flags  (CICSF) 
are  set  for  all  CIC  controllers  in  the  system  (CICSY).     If  the  activate  bit 
is  not  set,   the  release  bit  (CPNIN,   WORD3,    BIT   11)  is  checked  and  if  it  is 
set  all  the  CIC  selected  flags  (CICSF)  are  cleared  for  all  CIC  controllers 
in  the  system  (CICSY).     If  none  of  the  bits  are  set,   Routine  M  takes  the 
error  exit.     The  change  table  formatting  routine  (HFMT)  is  called  to  log 
the  change. 

If  the  section  bit  is  set,   the  section  number  is  obtained  from  CPNIN,    WORD3, 
BITS  16  -  31.     If  the  inserted  number  is  greater  than  the  max  number  of 
sections  (NMSCT),   Routine  M  takes  the  error  exit.     If  the  inserted  section 
number  is  valid,  the  activate  bit  and  release  bit  are  checked  and  processed 
just  as  in  system  entry,    except  now  the  CIC  selected  flags  (CICSF)  are 
processed  only  for  the  section. 

If  the  controller  bit  is  set,   the  controller  number  is  obtained  from  CPNIN, 
WORD3,   BITS  16  -  31.     If  the  inserted  number  is  greater  than  the  maxi- 
mum number  of  controllers  (NMCTL),   Routine  M  takes  the  error  exit.     If 
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the  inserted  number  is  valid,  the  activate  bit  (CPNIN,   WORDS,   BIT  10)  is 
checked  and  if  it  is  set  the  possible  CIC  flag  (CICSY)  associated  with  con- 
troller is  checked.     If  this  is  not  a  CIC  controller,   Routine  M  takes  the 
error  exit.     If  it  is  a  CIC  controller,   the  CIC  selected  flag  (CICSF)  associated 
with  this  controller  is  set.     If  the  activate  bit  is  not  set,  the  release  bit 
(CPNIN,  WORD3,   BIT  11)  is  checked  and  if  set  the  CIC  selected  flag  (CICSF) 
associated  with  this  controller  is  cleared.     If  none  of  the  bits  are  set, 
Routine  M  takes  the  error  exit.     The  change  table  formatting  routine  (HFMT) 
is  called  to  log  the  changes. 

Map  Enter  --  If  the  map  enter  bit  (CPNIN,   WORD1,   BIT   1)  is  set,  the  map 
ready  bit  of  the  control  panel  output  word  (CPNOT,   BIT   1)  is  set.     Routine 
M  then  begins  to  format  the  inputs  from  the  control  panel  and  stores  them 
away  for  Routine  J  (Map  Control  Routine).     The  controller  display  code 
(CNDIS)  is  set  for  Routine  J.     If  the  A-Phase  Green  bit  (CPNIN,  WORD1, 
BIT   12)  is  set,  then  CNDIS  =  0  (CONTROLLER  DISPLAY  ON).     If  the  con- 
troller display  off  bit  (CPNIN,   WORD1,   BIT  15)  is  set,  then  CNDIS  =  1 
(CONTROLLER  DISPLAY  OFF).     Next  the  surveillance  off  bit  (CPNIN, 
WORD1,   BIT   11)  is  checked  and  if  it  is  set  the  surveillance  display  code 
(SRDIS)  is  set  to  zero  (SURVEILLANCE  OFF)  for  Routine  J. 

After  checking  the  three  bits  mentioned  above  and  making  changes  to 
CNDIS  and  SRDIS,    if  necessary,   the  traffic  control  bit  (CPNIN,  WORD1, 
BIT  5),   the  BPS  bit  (CPNIN,  WORD1,    BIT  7),  the  CIC  bit  (CPNIN,   WORD1, 
BIT  6),  and  the  controller  status  bit  (CPNIN,   WORD1,   BIT  13)  are  checked. 
If  none  of  the  bits  are  set,   Routine  J  is  scheduled  and  Routine  M  exits. 

If  the  traffic  control  bit  is  set,  the  flow  data  bit  (CPNIN,   WORD1,   BIT  8) 
is  checked  and  if  set  the  flow  parameter  is  found  by  checking  bits  16-21 
of  CPNIN,   WORD1.     The  selected  threshold  is  obtained  from  CPNIN,   WORD1, 
BITS  22  -  31.     A  corresponding  threshold  value  is  obtained  from  a  fixed  in- 
ternal table  (THRVL)  and  stored  into  the  flow  data  threshold  array  (THRSH) 
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for  Routine  J.      The  flow  parameter  code  is  stored  into  the  flow  data  param- 
eter code  array  (PRCOD)  for  Routine  J.      These  codes  are: 

0  -  Occupancy 

1  -   Volume 

2  -   Queue 

The  surveillance  display  code  (SRDIS)  is  set  to  3  (FLOW  DATA).     Next  the 
controller  status  bit  (CPNIN,   WORD1,   BIT  13)  is  checked  and  if  set  the 
controller  display  code  (CNDIS)  is  set  to  2  (CONTROLLER  STATUS).     If 
the  controller  status  bit  is  not  set,  the  failed  bit  (CPNIN,  WORD1,   BIT  14) 
is  checked  and  if  set  the  controller  display  code  (CNDIS)  is  set  to  3 
(CONTROLLERS  FAILED).     Routine  J  is  scheduled  and  the  Routine  M  exits. 

If  the  flow  data  bit  is  not  set,   it  is  not  necessary  to  look  for  flow  data  param- 
eters and  threshold  values.     Instead  the  equipment  failed  bit  (CPNIN,   WORD1, 
BIT  10)  is  checked  and  if  set  the  surveillance  display  code  (SRDIS)  is  set 
to  1  (TCS  EQUIPMENT  FAILED).     Next  the  program  checks  the  controller 
status  bit  and  proceeds  exactly  as  above  when  flow  data  was  selected. 

Display  Enter  --  If  the  display  enter  bit  (CPNIN,  WORD1,   BIT  2)  is  set, 
the  display  ready  bit  of  the  control  panel  output  word  (CPNOT,   BIT  2)  is  set. 
A  check  is  made  to  see  which  CRT  has  been  selected.     If  neither,   Routine  M 
takes  the  error  exit.     At  the  error  exit  the  display  error  bit  of  the  control 
panel  output  word  (CPNOT,    BIT  4)  is  set.     If  CRT  number  1  is  chosen 
(CPNIN,  WORD2,    BIT  8),   then  the  CRT  number  1  flag  (CRTF1)  is  set.     If 
CRT  number  2  is  chosen  (CPNIN,   WORD2,   BIT  9),   then  the  CRT  number  2 
flag  (CRTF2)  is  set.     In  either  case  the  program  then  proceeds  to  get  the 
CRT  display  code  for  Routine  K.     If  the  traffic  failure  bit  (CPNIN,   WORD2, 
BIT   11),   the  traffic  system  bit  (CPNIN,  WORD2,    BIT   12),  the  controller 
bit  (CPNIN,   WORD2,   BIT   13),   traffic  system  detector  bit  (CPNIN,   WORD2, 
BIT   14),   or  the  traffic  system  intersection  bit  (CPNIN,   WORD2,   BIT  15)  are 
set  the  corresponding  CRT  display  codes  are  placed  into  CRTD1  (for  CRT  1 
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selected)  or  CRTD2  (for  CRT  2  selected)  for  Routine  K.     These  codes  are  as 
follows : 

1  -  Traffic  Failure 

2  -  Traffic  System 

3  -  Controller 

4  -  Traffic  System  Detector 

5  -  Traffic  System  Intersection 

If  traffic  system  intersection  is  selected,  the  intersection  number  is  ob- 
tained from  bits  20  -  31  of  CPNIN,   WORD2.     If  the  inserted  number  is 
greater  than  the  number  of  controllers  in  the  system  (NMCTL),   Routine  M 
takes  the  error  exit.     After  the  display  code  is  stored  a  check  is  made  to 
see  if  it  has  been  more  than  6  seconds  since  Routine  K  was  scheduled.     If 
it  has,  Routine  K  is  scheduled  and  Routine  M  exits.     If  it  has  not  been  that 
long  Routine  M  exits  without  scheduling  Routine  K. 

Several  small  updates  have  been  made  to  Routine  M  to  support  the  second 
generation  software  system.     First  since  the  BPS  capability  has  been  de- 
leted from  the  second  generation  system,   Routine  M  has  been  modified  to 
give  an  operator  input  error  if  any  BPS  system  control  functions  or  any 
BPS  CRT  report  is  attempted  to  be  selected  by  the  operator. 

Second,   to  provide  for  proper  second  generation  traffic  responsive  capa- 
bility,  Routine  M  has  been  modified  to  schedule  Routine  W  immediately 
upon  entering  a  traffic  responsive  system  or  section  mode  request.     This 
scheduling  is  so  that  Routine  W  can  set  the  Level  5  Start  Flags  (LEV5SF) 
which  in  turn  will  be  interrogated  by  the  Level  5  executive  (MACRO)  at  the 
next  5MINCT  mark  and  will  activate  the  Traffic  Signal  Optimization  Routine 
(LSTSQS). 

Routine  M  has  also  been  modified  to  give  a  "wait"  response  on  the  control 
panel  if  a  traffic  system  control  mode  change  is  requested  which  the  Level  5 
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software  is  active.      The  Level  5  active  state  is  determined  by  testing  the 
LEVL5A  flag  which  is  set  upon  entry  to  Routine  MACRO  and  reset  upon  exit 
of  that  routine.     The  "wait"  indication  is  also  given  if  a  controller  split 
change  is  requested  or  if  a  controller  offset  change  is  requested  while 
Level  5  is  active.     This  "wait"  is  imposed  so  that  controller  offsets  and 
splits  are  not  lost  due  to  a  multiple  transition  which  could  occur  if  the  re- 
quests are  accepted.     This  response  is  similar  to  the  one  given  in  the  first 
generation  software  if  any  of  the  above  requests  are  entered  while  the  FMSCF 
is  set  indicating  that  Routine  W  is  active. 

The  reader  should  refer  to  Section  2.  14  of  Reference  2  to  trace  the  following 
description  of  the  particular  portions  of  the  code  of  Routine  M  which  have 
been  modified. 

In  the  traffic  responsive  mode,   after  the  15-minute  section  flag  (FMSECF) 
is  checked,   a  check  on  the  LEVL5A  flag  is  performed.     If  the  LEVL5A  flag 
is  not  set,   the  wait  exit  (Y)  is  taken.     If  the  LEVL5A  flag  is  set  then  SSFW 
is  reset,   FMSECF  is  set,   JJ  is  reset,   and  Routine  W  is  scheduled.     Then 
the  code  proceeds  as  shown.     Also,   in  the  Time-of-Day,   after  the  FMSECF 
flag  is  checked,   a  check  on  the  LEVL5A  flag  is  performed.     If  it  is  not  set, 
the  wait  exit  (Y)  is  taken.     If  it  is  set,   then  the  code  proceeds  as  shown. 

In  the  Traffic  Response  (Time-of-Day  and  Manual  Pattern)  mode  after  the 
FMSECF  flag  is  checked,  a  check  on  the  LEVL5A  flag  is  performed.  If  it 
is  not  set,  the  wait  exit  (Y)  is  taken.     If  it  is  set  then  the  code  proceeds. 

In  A-Phase  Green  and  offset,   after  the  FMSECF  flag  is  checked,   a  check  on 
the  LEVL5A  flag  is  performed.     If  it  is  not  set,  the  wait  exit  (Y)  is  taken. 
If  it  is  set  then  the  code  proceeds. 

2.6.  51.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 

2  46 


(ENTER  FROM     *\ 
ROUTINE  A       J 


PRESET  MBIT 
ARRAY  OFF 


I 


CALL 

MSUB(-l) 


YES 


-© 


(SYSTEM  CONTROL) 


YES 


-© 


MC1J    (MAP  CONTROL) 


YES 


^) 


MD1  I   (STATUS  DISPLAY) 


(NO  SELECTION) 


Routine  M 
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YES 


*0 


(ERROR) 


SET  SHTFL 
SCHEDULE 
ROUTINE  H 


YES 


*© 


/IBJTC2)    NNQ     »(b2) 


BlJ    (ERROR) 


Routine  M  (Continued) 
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MBITC3)    \X§^ ^l)      SYSTEM) 


MBIT(4)      y^L *-{E2)     (SECTION) 


-►(W)     (CONTROLLER) 


MBIT(6)  ^vYES 

Mfo7       y^±_ 


••{eT)     (COMMUNICATION) 


Routine  M  (Continued) 
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(SYSTEM) 


(F2)    (SECTION) 


(CONTROLLER) 


X  I  (ERROR) 


Routine  M  (Continued) 
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/•>  M  rv  1  c 

YES  > 

/MBIT(12)S 
=  0? 

^ftfo 

//MBIT(15)S 
.       =0? 

|N0 
^i^ 

SYES*- 

LNUlo  -  U 

CNDIS  =  1 

IBIT(11)\YES 
0? 


NO 


1BIK5) 
=  0? 


*© 


'NO 


MBIK6) 
=  0? 


NO 


CI 


'ES 


1BIT(13)S 
=  0? 

sYES 

CNDIS  =  4 

]N0 
\^m- 

(CI  4) 


Routine  M  (Continued) 
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C2 


MB)T(IO)  XSYES 

=  0? 


SRDIS=  1 


MBIT(13)\YES 
0? 

NO 


CNDIS=  2 


MBITCl^ 

vYES 

CNDIS  =  3 

=  0? 

i^ 

MB!T(8)\N° 
=  0? 


'ES 


MCODE=  24 


Routine  M  (Continued) 
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IC14J 


1 


SCHEDULE 
ROUTINE  J 


1 


f    RETURN      J 


Routine  M  (Continued) 
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MBIT(8)    \YES 
=  0? 


=  1 


IBIK9)  \NO 
0? 


*<D 


1  =  2 


DISPLAY 
ERROR 


IBIT(15)\N0 
=  0? 


YES 


1BIK16)  \YES 
>NMCTL?. 


ITRNM(I) 
=  MBITCL6) 
J=  5 


D2 


-0 


-© 


Routine  M  (Continued) 
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LOCATE  INDEX 
FOR  DISPLAY 
CODE 


ICRT(I)  =  J 

L=  RTC-CRTCL 


YES 


i 


SCHEDULE 
ROUTINE  K 
CRTF1=  1 
CRTF2=  1 
CRTCL=  RTC 


-© 


(DISPLAY  ERROR) 


/     RETURN      J 


Routine  M  (Continued) 
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Gl)  (TRAFFIC  RESPONSIVE) 


(SYSTEM 
ON-LINE) 


G4)   (STAND-BY) 


MG5  )   (RECORD  HISTORY  ON) 


6<\* /MBIT(14)\>YES__  (re 

(ERROR) 


Routine  M  (Continued) 
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MBIT(8)  X^YE^ 


(ERROR) 


(ERROR) 


MBIT(9)  \YES 
=  0?         y — — *\H2j      (TIME  OF  DAY) 


MBIK16)  \YES 
=  0?         >  »(H3  )      (MANUAL  PATTERN) 


(STAND-BY) 


X    )  (ERROR) 


Routine  M  (Continued) 
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YES 


€» 


MX    )  (ERROR) 


FMTTY=  3 
FMTNU=  CN 


YES 


-© 


YES 


<D 


YES 


-© 


Routine  M  (Continued) 
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NO 
■    1   (ERROR) 


Routine  M  (Continued) 
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•"■(x)    (ERROR) 


FMTTY=4 
FMTNU=  MBIT(l) 


MBIT(10r\    NO 
=  0? 


-—QlJ    (ON  LINE) 


■© 


(STAND-BY) 


*® 


(FAILURE  REPAIR) 


-© 


(FAILURE  ACKNOWLEDGE) 


X  l(ERROR) 


Routine  M  (Continued) 
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MBIT(1)\  YES 

> 
NMVED 


-0 


MX    )  (ERROR) 


FMTTY=  5 
FMTNU=  MBIT(l) 
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(ACTIVATE) 


L2)    (RELEASE) 


x  )  (ERROR) 


YES 


*© 


(ERROR) 


FMTNU=  MBIT(l) 
FMTTY=2 


YES 


■Uu) 


(ACTIVATE) 


YES 


-»*{M2) 


(RELEASE) 


X  )  (ERROR) 


Routine  M  (Continued) 
262 


(ERROR) 


FMTNU=  MBIT(l) 
FMTTY=  3 


MBIT(10)\YES 
=  0? 


H® 


MBIT(ll)  '      YES 
=  0 


*© 


i> 


(ERROR) 


Routine  M  (Continued) 
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(WAIT) 


(WAIT) 


(WAIT) 


ITRDLY=  0 

SSFW=  0 

FMSCF=  1 

JJ  =  0 

SCHEDULE  ROUTINE  W 


I 


CALL 
MSUB(l) 

107     (SET  TIME  OF  MODE  CHANGE) 


Routine  M  (Continued) 
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KD 


(WAIT) 


•© 


(WAIT) 


-f^)  (WAIT) 


SSFW=  0 
FMSCF=  0 
JJ=  0 
FMTCH  =  3 
SCHEDULE  ROUTINE  W 


Routine  M  (Continued) 
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FMSYF=  1 

FMSEC  =  1 

SSFW  =  0 

FMTCH=  13 

SCHEDULERGUTINEVtf 


CLEAR  HOLD  SPLIT 
AND  OFFSET  FLAGS 
FMTCH=  1 
ITRDLY=  0 


Routine  M  (Continued) 
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HRF  =  1 
FMTCH -  5 


HRF=  0 
FMTCH = 6 


TIMCH  (ALL  SECTIONS) 

=  ITME 

ISECSBCALL  SECTIONS) 

=  125 

SET  WAIT  COUNT 


FMTTY=  1 
FMTNU=  0 


Routine  M  (Continued) 
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■© 


H  Y  )  (WAIT) 


LEVL5A   \Nn 
=  0?  >^ *{  Y  )  (WAIT) 


•0 


YES 


<D 


Y   )   (WAIT) 


FMTCH  =  4 


i 


CALL 
MSUB(5) 


Routine  M  (Continued) 
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-fr/7")  (WAIT) 


-0 


(WAIT) 


YES 


G 


(WAIT) 


FMTCH  =  3 


i 


CALL 
MSUB(6) 


Routine  M  (Continued) 


269 


(ERROR) 


(WAIT) 


(WAIT) 


(WAIT) 


Routine  M  (Continued) 
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FMTCH  =  1 
ITRDLY=  0 


CALL 
MSUB(8) 


I 


ISYSTB=  125 
ISECSB(SN)  = 
125 


Routine  M  (Continued) 
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0- 


FMSCF=  1 
SSFW=  1 
JJ=  SN  -  1 


*© 


(ERROR) 


SCHEDULE 
ROUTINE  W 


I 


FMTTY  = 

2 

FMTNU  = 

SN 

T1MCH  (SN)  = 

ITIME 

Routine  M  (Continued) 
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(ERROR) 


CALL 
MSUB(IO) 


I 


FMTCH=  1 


Routine  M  (Continued) 
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Routine  M  (Continued) 
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■0 


(WAIT) 


0 


MY  )(WAIT) 


CALL 
MSUBCL2) 


(ERROR) 


(WAIT) 


FMTCH  =  7 
PREPARE  SPLIT 
HOLD 


Routine  M  (Continued) 
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-© 


(WAIT) 


CALL 
MSUBCL3) 


YES 


-© 


(ERROR) 


YES 


<D 


(WAIT) 


FMTCH=  8 


Routine  M  (Continued) 
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CALL 

MSUBCL4) 


*© 


(ERROR) 


FMTCH  =  13 


Routine  M  (Continued) 
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(ERROR) 


(ERROR) 


Routine  M  (Continued) 
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(ERROR) 


Routine  M  (Continued) 
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(ERROR) 


(ERROR) 


Routine  M  (Continued) 
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(ERROR) 


Routine  M  (Continued) 
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FMTTY=  1 
FMTNU  =  0 


Routine  M  (Continued) 
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MCODE=  20 


ICODE=  21 


Routine  M  (Continued) 
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FMTCH=  9 
MCODE=  22 


r 


CALL 

MSUB 
(MCODE) 


FMTCH  =  10 
MCODE =  23 


(ERROR) 


Routine  M  (Continued) 
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c 


RETURN 


D 


© 


CALL 
MSUB(26) 


c 


I 


RETURN 


3 


Routine  M  (Continued) 
285 


Routine  M  (Concluded) 
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2.  6.  52    SUBROUTINE  HFMT 

2.6.52.1  Purpose 

This  subroutine  changes  table  formatting. 

2.6.52.2  Relationship 

This  subroutine  is  called  from  Routine  M  by: 

CALL  HFMT 
This  subroutine  calls  E1SRT,    HALF,    PTHLF. 

2.6.52.3  Assumption 
None. 

2.6.52.4  Approach 

Subroutine  HFMT  records  the  time  of  day,    type  of  change,    previous  pattern 
number,    and  new  pattern  number  following  a  change  of  pattern. 

2.6.  52.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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c 


ENTER 


") 


GET  CHANGE 
TABLE  INDEX 
1=5  IBL 


STORE  INTO  CHANGE 

TABLE: 

CTABL(I)=  TIME  OF  DAY 

CTABL(I+1)=  TYPE 

CTABL(l+2)=  NUMBER* 

CTABL(l+3)=  CHANGE 


YES 


SET: 

CTABL(l+4)  = 
MANUAL  PATTERN 
NUMBER* 


YES 


SET: 

CTABLCI+4) 

BLANKS 


SET: 

CTABL(l+4)  = 
EXTENSION* 


£ 


IBL=  IBL  +  1 


SET: 

MPOKY=  1 
ROUTINE  H  ACTIVE 


NO 


Subroutine  HFMT 
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2.6.53    SUBROUTINE  KFMT 

2.6.53.1  Purpose 

This  subroutine  updates  the  failure  table  according  to  the  change  code  con- 
tained in  global  variable  FMTCH. 

2.6.53.2  Relationship 

Subroutine  KFMT  is  called  from  Routine  M  by: 

CALL  KFMT 
It  returns  to  the  calling  routine. 

2.6.53.3  Assumption 
None. 

2.6.53.4  Approach 

Subroutine  KFMT  updates  the  Failure  Table  according  to  the  Change  Code 
(V)  contained  in  global  variable  FMTCH.     If  V  specifies  a  failure  acknowledge 
(V  =  11)  indicating  that  the  operator  wishes  to  acknowledge  the  failure  of  the 
equipment  designated  by  T  and  U,   KFMT  sets  the  acknowledge  status  in- 
dicator to  one  (YES)  in  the  appropriate  entry  of  the  Failure  Table,   turns  off 
the  appropriate  malfunction  indicator  on  the  Control  Panel  and  turns  off  the 
audible  alarm.     The  other  possible  value  of  V  (V  =  12)  specifies  a  failure 
repair.     KFMT  then  deletes  the  appropriate  entry  in  the  Failure  Table  and 
reduces  the  sectional  equipment  and  total  system  failure  counts  by  one.     In 
both  cases,   KFMT  determines  the  equipment  Type  (T)  from  global  variable 
FMTTY  (=  3  for  controller,    =  4  for  detector,    =  5  for  communications)  and 
the  identification  number  (U)  from  FMTNU.     If  no  failure  has  been  recorded 
in  the  Failure  Table  for  the  designated  equipment,   KFMT  sets  the  Failure 
Error  Flag  non-zero  (global  variable  FLRFL)  to  sign  an  illegal  request. 

289 


2.6.53.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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o 

LLHLU 

o*R 


UJO. 


UJ<0< 
tO  I—  <  Li. 


UJ 

<^ 

U.Q.LU 
OQ- CC 

^3 

a;o.  _ 

I —  -=C  Ll_ 


r\ 


W 


f> 

CCLU 

o    . 

1 

<   - 

to 

i— 

•h 

UJ<_ 

p 

OIL   || 

UJ 

ESET 
RROR 
LRFL 

LJ 

q;luLl. 

Uo 


•   i 


II 

o 


< 

U. 
O 


< 

u_ 


< 
Ll. 


•0 


<u 

c 
•r-i 

o 

Sh 

-Q 

CO 
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<i 

P 

© 

IND  =  FMTNU 
K=  DWL(IND) 

1 

K=  LNKCN(K) 

r 

i  r 

i 

IND  =  FMTNU 
K  =  CNSEC(INC) 
SECFC(K)  = 
SECFC(K)  -  1 

K=  CNSEC(K) 
SCDFC(K)  = 
SCDFC(K)  -  1 

SQUEEZE  TABLE  TO 
FILL  VACATED 
ENTRY 

ADJUST  FAILURE 
TABLE  INDICES;  I.E. 
FTBVVD  =  FTBWD  -  4 
FTAB=  FTAB  -  16 

© 


Subroutine  KFMT  (Concluded) 
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2.6.54    SUBROUTINE  MSUB 

2.6.54.1  Purpose 

Subroutine  MSUB  packs  and  unpacks  data  from  bit  and  byte  arrays  for  pro- 
cessing by  the  FORTRAN  Routine  M. 

2.6.54.2  Relationship 

This  subroutine  is  called  from  Routine  M  by: 

CALL  MSUB 

The  calling  parameter  is  the  variable  MCODE  which  is  passed  through 
COMMON. 

2.6.54.3  Assumption 
None. 

2.6.54.4  Approach 

This  subroutine  is  called  from  Routine  M  and  is  therefore  not  required  to 
be  re-entrant. 

The  flag  MCODE,    set  in  Routine  M,    is  negative  for  the  initial  call  and 
positive  for  subsequent  calls. 

For  the  initial  pass,    the  first  three  bits  of  the  Control  Panel  Input  Array 
CPNIN  determine  selection  of  System  Control,    Map  Control,    or  Status 
Display.     MEXIT  is  set  to  indicate  which  branch  was  selected.     The  appro- 
priate bits  are  unpacked  from  the  CPNIN  array  and  placed  in  the  MBIT 
array. 


293 


For  subsequent  passes,   the  value  of  MCODE  determines  what  data  are 
stored  into  bit  and  byte  arrays.     If  an  error  condition  is  found  in  the  data, 
MTEST  is  set  to  indicate  this. 


2.6.54.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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IS  MCODE^v  NO 
NEGATIVE?. 


RESET  ALL  PANEL  OUTPUT 
PULSES  (BITS  0-4)  OF  CPNOU 


I 


PUT  '15-MIN  REPORT  FLAG7  BIT 
(CPNIN  WD 2;  BIT  10)  IN  IPRT 


Y£S_ 


IS  MAP 
CONTROL  'ENTER7^^ 
JIT  SET?  (CPNIN 
WD1,  BIT 


^LS_ 


SET  MEXIT=4  FOR 
NO  SELECTION 


per 

(  RETURN  J 


-WCK 


-WA1 


-WC1 


■MD1 


Subroutine  MSUB 
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SYSTEM  CONTROL 


SET  MEXIT=  1  FOR 
SYSTEM  CONTROL 


I 


TURN  ON  SYSTEM 

READY  BIT  (CPNOU  WD1,  BIT  0) 


I 


SET  MTEST=  SYSTEM  SHUT- 
DOWN BIT  (CPNIN  WD2,  BIT  1) 


I 


UNPACK  BITS  FROM  CPNIN 

USED  FOR  SYSTEM  CONTROL  REQ 

AND  BLACE  IN  MBIT  ARRAY 


f   RETURN  ) 


MAP  CONTROL 


© 


SET  MEXIT=  2  FOR 
MAP  CONTROL 


I 


TURN  ON  MAP  CONTROL 
READY  BIT  (CPNOU  WD1,  BIT  1) 


I 


UNPACK  BITS  FROM  CPNIN 
USED  FOR  MAPCONTROL 
REQUESTS  AND  PLACE  IN 
MBIT  ARRAY 


(^RETURN  J 


STATUS  DISPLAY 


© 


SET  MEXIT=  3  FOR 
STATUS  DISPLAY 


I 


TURN  ON  DISPLAY  READY 
BIT  (CRNOU  WD1,  BIT  2) 


I 


UNPACK  BITS  FROM  CPNIN 
USED  FOR  STATUS  DISPLAY  REQ. 
AND  PLACE  IN  MBIT  ARRAY 


(return^ 


SUBSEQUENT  PASSES 


i 


DETERMINE  VALUE 
OF  MCODE 


I 


SET  BIT  AND  BYTE 

ARRAYS  AS  NEEDED  FOR  THE 

PARTICULAR  VALUE  OF  MCODE. 

IF  ERROR  NOTED,  SET  MTEST 

OR  TURN  ON  ERROR  BITS 

IN  CPNOU 


per 

(    RETURNJ 


Subroutine  MSUB  (Concluded) 
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2.6.55    ROUTINE  MSUB2 


2. 6. 55. 1     Purpose 


Data  storage  area.     No  executable  code  contained  in  this  subroutine. 

2.6.55.2  Relationship 

Storage  area.     This  subroutine  is  not  called. 

2.6.55.3  Assumption 
None. 

2.6.55.4  Approach. 

Five  words  are  reserved  for  data  storage. 

2.6.  55.  5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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2.6.56    SUBROUTINE  SRCFT 

2. 6. 56. 1  Purpose 

Subroutine  SRCFT  searches  for  failure  table  entry  to  be  updated. 

2.6.56.2  Relationship 

This  subroutine  is  called  from  subroutine  KFMT  by: 

CALL  SRCFT  (INDEX,    IRTN) 
where: 

INDEX  =  Index  of  fail  table  entry 

IRTN  =  0  Execute  next  statement  after  call  (error  return) 

=  1  Jump  2  statements  after  call  and  begin  execution  for 
normal  return 

This  subroutine  calls  HALF,    GETBY. 

2.6.56.3  Assumption 
None. 

2. 6. 56. 4  Approach 

Subroutine  SRCFT  searches  the  failure  table  to  find  an  entry  by  equipment 
number  (FMTNU)  and  type  (FMTTY).     If  the  device  is  found,    SRCFT  sets 
IRTN  to  0  and  INDEX  to  the  location  in  the  failure  table  where  the  device's 
failure  was  recorded.     If  the  device  is  not  found  IRTN  is  set  to  1.     SFCFT 
returns  to  the  calling  routine. 

2.  6.  56.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 

298 


C  ENTER  J 

INDEX  = 
(INDEX-D*12  +2 


CALL  HALF 
(FLTAB,  IND,  NUMB) 


CALL  GETBY 
(FLTAB,  IND,  ITYPE) 


YES 


INDEX  =  INDEX-4 


YES 


IRTN  =  0 


(return) 


IRTN  =  1 


/return^ 


Routine  SRCFT 
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2.6.57    ROUTINE  O 

2.  6.57. 1    Purpose 

The  purpose  of  Routine  O  is  to  set  A-Phase  Green  indication  bits  in  word 
AOG,   and  start  of  A-Phase  Green  bits  in  word  STRTA,  for  each  local  con- 
troller.    This  routine  is  executed  once  per  second  for  all  local  controllers. 
The  routine  is  processed  immediately  following  Routine  N  and  exits  to 
Routine  Al.     It  also  calls  UNPO  and  PCKO  to  unpack  and  pack  bit  arrays 
that  are  required  by  Routine  O.     UNPO  unpacks  bit  arrays  GAI,   STRTA, 
and  AOG,    PCKO  packs  bit  arrays  STRTA  and  AOG. 

2.6.57.2  Relationship 

Routine  O  is  caLLed  from  Routine  Al  by: 

CALL  RTNO 
Routine  O  calls  subroutines  UNPO  and  PCKO. 

2.6.57.3  Assumption 
None. 

2.6.57.4  Approach 

Upon  entry  every  second,   a  Do-Loop  is  set  up  in  which  32  controllers  are 
processed  at  one  time.     For  each  controller,   the  routine  subsequently  com- 
putes the  corrected  A-Phase  Green  Return  word  (AOG)  and  start  of  A-Phase 
Green  (STRTA).     This  is  accomplished  by  first  storing  into  GAP1,  the  ones 
complement  of  A-Phase  Green  Return  input  word  GAI.     The  input  data  must 
be  complemented  since  the  MUX  supplies  the  data  to  the  computer  in  com- 
plemented form.     GAP1  points  to  alternate  input  array  labels  GAI  or  GA2 
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and  is  initially  set  to  label  GA1.  In  location  GT,  the  result  of  the  boolean 
operation  GAlflGA.2  is  stored  for  word  AWI.  The  start  of  A-Phase  Green 
is  computed  using  the  boolean  operation  AOG  H  (GAlO  GA2). 

After  computing  STRTA,   AOG  is  calculated.     The  algorithm  used  sets  AOG 
to  a  one  if  the  signal  was  present  for  two  pulses  in  a  row,    i.  e. ,   GA1  and 
GA2  are  both  a  one.     It  also  sets  AOG  to  a  zero  if  the  signal  was  absent  for 
two  pulses  in  a  row.     Otherwise,   AOG  remain  unchanged.     This  has  the 
effect  of  removing  a  single  noise  pulse  where  no  signal  is  present  and  filling 
in  a  single  missing  pulse  when  the  signal  is  present. 

Upon  completion  of  all  controller  words,  the  label  in  GAP1  is  interchanged 
to  the  alternate  buffer  label,  and  the  routine  is  exited. 


2.6.57.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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CENTER  FROM^ 
ROUTINE  Al  J 


IL2=  0;  1=  0 


SET  LOOP 
COUNTER 
KL2-  1 


1  =  1  +  1 


SUBROUTINE  UNPO 

UNPACK  BIT 

ARRAYS 

GA1,  STRTA,  AOG 

(32  VALUES) 


SET  INNER 
LOOP  COUNTER 
JL2=  1 


IL2=  IL2  +  1 


COMPLEMENT  GAI 
GA2  (IL2)  = 
-GAI  (JL2)  +  1 


YES 


M- 


IR10  =  GAI(IL2)AGA2(IL2) 


COMPLEMENT  GAI 
GAI(JL2)  = 
-GAKJL2)  +  1 


STRTUL2)  =  (IR10*AOG(JL2)K)|R10 


A0G(JL2)  =  CA0G(JL2)ftnGAI(JL2)VGA2CJL2)]) 
U[GAI(IL2)nGA2(IL2)] 


KL2=  KL2+32 


SUBROUTINE  PCKO 
PACK  BIT  ARRAYS 
STRTA,  AOG 


NO 


YES 


JL2  =  JL2  +  1 


IALTB=  IALTB  +  1 


-^RETURN  TO  Al  J 


Routine  O 
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2.  6.  58    SUBROUTINE  PCKO 

2.6.58.1  Purpose 

This  subroutine  packs  bits  into  STRTA  and  AOG. 

2.6.58.2  Relationship 

This  subroutine  is  called  from  Routine  O  by: 

CALL  PKBIT 
This  subroutine  calls  subroutine  PKBIT. 

2.6.58.3  Assumption 
None. 

2. 6. 58. 4  Approach 

Subroutine  PCKO  makes  repeated  calls  to  subroutine  PKBIT  to  store  AOGI 
and  STRTI  into  the  I  bit  of  arrays  AOG  and  STRTA,    respectively.     PCKO 
then  returns  to  the  calling  routine.     Variable  I  is  passed  through  COMMON 
block  PCOM. 

2.6.58.5  Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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c 


ENTER 


) 


CALL  PKBIT 
(STRTI,  I,  STRTA) 


i 


CALL  PKBIT 
(AOGI,  I,  AOG) 


C    RETURN  J 


Subroutine  PCKO 
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2.6.59    SUBROUTINE  UNPO 

2.6.59.1  Purpose 

This  subroutine  unpacks  GAII  and  AOGI. 

2.6.59.2  Relationship 

This  subroutine  is  called  from  Routine  O  by: 

CALL  UNPO 
This  subroutine  calls  UNBIT. 

2.6.59.3  Assumption 
None. 

2.6.59.4  Approach 

Subroutine  UNPO  makes  repeated  calls  to  UNBIT  to  retrieve  the  I  bit  from 
the  GAII  and  AOGI  arrays.     These  are  held  in  GAI  and  AOG,    respectively. 
UNPO  then  returns  to  the  calling  routine.     Variable  I  is  passed  through 
COMMON  block  PCOM. 

2.6.59.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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CALL  UNBIT 
(GAII,  I,  GAD 


CALL  UNBIT 
(AOGI,  I,  AOG) 


c 


RETURN 


) 


Subroutine  UNPO 
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2.6.60    ROUTINE  P 


2. 6.60.  1    Purpose 

Routine  P  scans  the  complement  of  controllers  which  have  been  flagged  as 
being  out  of  synchronization  with  the  computer.     If  the  controller  is  out  of 
phase  by  one  interval  a  correction  is  attempted,   otherwise,   the  controller 
is  dropped  into  stand-by.     The  routine  is  executed  once  per  second  for 
every  controller  out  of  phase. 


2.6.60.2    Relationship 

This  routine  is  the  first  routine  in  the  Controller  Do-Loop  and  is  executed  at 
Priority  Level  2.     It  is  called  by  the  Level  2  Executive.     Routine  P  calls 
UNPP1  to  unpack  TIMEO  and  INTOU  if  they  are  required.     It  makes  a  call 
to  UNPP2  if  INTR2,   INTNL,   and  INTRH  are  required.     PACKP1  is  called 
at  the  end  of  the  routine  to  pack  TIMEO  and  INTOU. 


2.6.60.3    Assumption 
None. 


2.6.60.4    Approach 

Routine  P  is  the  first  routine  in  the  Controller  Do -Loop  (defined  in  Routine 
Al,   Do-Loop  Routine)  and  is  scheduled  by  the  Do-Loop  Routine  whenever  it 
determines  there  is  a  controller  out  of  phase.     Routine  Al  checks  if  any 
current  controllers  being  processed  are  out  of  sync.     If  so,   Routine  P  is 
called  to  process  eight  controllers.     This  routine  then  scans  to  determine 
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which  controllers  are  out  of  sync.     For  each  one  detected,  this  routine 
determines  if  the  corresponding  controller  is  leading  or  lagging  the  com- 
puter. 

If  the  controller  is  found  to  be  lagging,   a  timeout  procedure  is  initiated  with 
a  3  second  duration.     If  the  controller  is  still  lagging  after  timeout,  an 
advance  pulse  is  sent  to  the  controller  and  a  1.  5 -second  timeout  is  initiated. 
If  the  controller  is  still  found  to  be  lagging  after  this  period,   it  is  dropped 
to  standby  and  the  CRT  Failure  Table  is  appropriately  updated. 

When  a  controller  is  found  to  be  leading  the  computer  a  test  is  made  to 
determine  if  it  is  more  than  one  interval  out  of  phase.     If  it  is  out  of  phase 
by  more  than  one  interval,   it  is  dropped  to  standby.     Otherwise  the  next 
advance  pulse  to  the  controller  is  inhibited. 


2.6.60.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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CENTER  FROM    ) 
ROUTINE  AW 


JL2=  1 


FORM  [A0G(JL2)8CPAG(JL2)] 
riHOLD  (JL2)HSEMSK(JL2) 


0 


DK 


PA0G\     NO 

4 


YES 


TIMEO  =  0 
INTOU  =  0 


ROUTINE  UNPP1 
UNPACK 
INTOU,  TIMEO 


<b 


G> 


ROUTINE  PCKP1 
PACK  TIMEO 
AND  INTOU 


TIME0=  TIMEO +  1 


Q 


RETURN  TO  Al 


O 


JL2  =  JL2  +  1 


?>YES  ► 


TIME=  0 

INTOU  =  1 

SET  IADVP(JL2)=  1 

(SET  "INTERVAL 

ADVANCE  PULSE") 


© 


Routine  P 
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I 


CLEAR  HOLD  (JL2) 
SET  CMALF(JL2)=  1 
(SET  "CONTROLLER  IN 
STANDBY"  AND  "CON- 
TROLLER MALFUNC- 
TION" FLAG) 


CLEAR 
TRNSFUL2) 
CICSFUL2) 
CICEFUL2) 
CICTFUL2) 
CLEAR  MKJL2) 
SET  ENTFLG=  0 
IND=  CLENG 
CONTB(IND)=  KL2 
CLENG=  CLENG +  1 


SCHEDULE  ROUTINE 
K  TO  LOG  FAILURE 


I 


CLEAR 
TRANSFCJL2) 

CICSFUL2) 
CICEFCJL2) 

CICTFUL2) 
CLEAR  MKJL2) 
SET  ENTFL=  0 
IND  =  CLENG 
CONTB(IND)=  K12 
CLENG=  CLENG  +  1 


Jl 


SCHEDULE  ROUTINE 
K  TO  LOG  FAILURE 


Routine  P  (Concluded) 
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2.6.61     SUBROUTINE  PCKP1 

2. 6. 61. 1  Purpose 

This  subroutine  packs  bytes  from  WSLZ(7)  and  WSLZ(6)  into  TIMEI  and 
INTOI,    respectively. 

2.6.61.2  Relationship 

This  subroutine  is  calLed  from  Routine  P  by: 

CALL  PCKP1 
This  subroutine  calls  routine  PKBYT.     * 

2.6.61.3  Assumption 
None. 

2.  6. 61. 4    Approach 

Subroutine  PCKP1  makes  repeated  calls  to  subroutine  PKBYT  to  store 
WSLZ(7)  and  WSLZ(6)  into  the  KLZ  byte  'of  TIMEI  and  INTOL    respectively. 
PCKP1  then  returns  to  the  calling  routine.     Variable  KLZ  is  passed  through 
COMMON  block  BYTLZ. 

2.6.61.  5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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c 


ENTER 


} 


CALL  PKBYT 
(TIMEJ,  KL2,  TIMEO) 


CALL  PKBYT 
(INTOI,  KL2,  INTOU) 


C     RETURN  J 


Subroutine  PCKP1 


312 


2.6.62     SUBROUTINE  UNPP1 

2. 6. 62. 1  Purpose 

Subroutine  UNPPl  unpacks  bytes  from  TIMEI  and  INTOI  to  WSLZ(7)  and 
WSLZ(6). 

2.6.62.2  Relationship 

This  subroutine  is  called  from  Routine  P  by: 

CALL  UNPPl 
This  subroutine  calls  UPBYT. 

2.6.62.3  Assumption 
None. 

2.6.62.4  Approach 

Subroutine  UNPPl  makes  repeated  calls  to  subtoutine  UPBYT  to  unpack  the 
byte  specified  by  variable  KLZ  from  TIMEI  and  INTOI,    storing  them  in 
WSLZ(7)  and  WSLZ(6),    respectively.     UNPPl  then  returns  to  the  calling 
routine.     Variable  KLZ  is  passed  through  COMMON  block  BYTLZ. 

2.6.62.5  Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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f ENTER  *\ 


CALL  UPBYT 
(TIMEI,  KL2,  TIMED) 


CALL UPBYT 
(INT01,  KL2,  INTOU) 


Subroutine  UNPP1 
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2.6.63    SUBROUTINE  UNPP2 

2. 6. 63. 1  Purpose 

This  subroutine  unpacks  bytes  from  INTZI,    INTLI,    and  INTHI  to  WSLZ(2), 
WSLZ(3),    and  WSLZ(4),    respectively. 

2.6.63.2  Relationship 

Subroutine  UNPP2  is  called  from  Routine  P  by: 

CALL  UNPP2 
This  subroutine  calls  UPBYT. 

2.6.63.3  Assumption 
None. 

2.6.63.4  Approach 

Subroutine  UNPP2  make  repeated  calls  to  subroutine  UPBYT  to  unpack  the 
byte  specified  by  variable  KL2  from  INTZI,    INTLI,    and  INTHI,    sotiring 
them  in  WSLZ(2),    WSLZ(3),    and  WSLZ(4),    respectively.     UNPP2  then 
returns  to  the  calling  routine.     Variable  KL2  is  passed  through  COMMON 
block  BYTL2. 

2.6.63.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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C    ENTER  ^ 


CALL  UPBYT 
(INT2I,  KL2,  INTR2) 


CALL  UPBYT 
(INTLI,  KL2,  INTNL) 


CALL  UPBYT 
(INTHI,  KL2,  INTRH) 


c 


RETURN 


3 


Subroutine  UNPP2 
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2.6.64    ROUTINE  Q 

2.6.64.1    Purpose 

Routine  Q  stores  data  on  the  RAD  required  for  the  next  start-up,   and  returns 
control  to  RBM  for  batch  processing  when  the  entire  UTCS  has  completed 
its  shutdown  tasks. 


2.6.64.2    Relationship 

Routine  Q  is  entered  on  demand  whenever  shutdown  is  requested  by  the 
operator. 

This  routine  is  scheduled  by  Routine  I.     The  routine  calls  Subroutines  Ql, 
MOVER,  and  CALOP. 


2.6.64.3  Assumption 
None. 

2.6.64.4  Approach 

Two  entries  are  required  to  complete  the  shutdown  procedure.     The  first  is 
initiated  by  Routine  I  which  schedules  Routine  Q  upon  finding  the  shutdown 
flag  (SHTFL)  set.     The  first  entry  requests  that  all  controllers  be  dropped 
to  standby.     It  then  sets  a  scheduler  clock  (QCNT)  to  18  0  seconds  and  exits 
to  Routine  A.     When  Routine  A  decrements  the  clock  to  zero,  Routine  Q  is 
re-scheduled  for  the  second  pass.     The  second  entry  stores  the  required 
arrays  on  the  RAD  and  releases  the  UTCS  program. 
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Routine  Q  has  been  modified  to  set  the  5END  flag  upon  the  initial  exit  from 
this  routine.     This  flag  is  initialized  to  zero  at  system  start  up. 

When  it  has  been  set  by  Routine  Q,    it  indicates  to  the  system  executive, 
Routine  A,    that  on  the  next  5MINCT  mark  Priority  Level  5  should  be 
scheduled  to  print  the  predictor  performance  report. 


2.6.64.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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SET  STBYD 
FLAGS  FOR  ALL 
CONTROLLERS 


ALLOW  3  MINUTES 
FOR  DROPOUT 
QCNT=  180  SECONDS 


RESET  ENTRY 
ADDRESS  FOR  ROUTINE 
Q  IN  MAST  TO  SECOND 
ENTRY  POINT 


EXIT  TO  ROUTINE 

A  AND  WAIT  FOR 

IT  TO  RESCHEDULE 

ROUTINE  Q 


Routine  Q 
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2.6.65    SUBROUTINE  Ql 

2.6.65.1  Purpose 

This  subroutine  writes  the  shutdown  file. 

2.6.65.2  Relationship 

Subroutine  Ql  is  called  from  Routine  Q  by: 

CALL  RTNQ1 
Subroutine  Ql  calls  subroutines  CALOP  and  MOVER. 

2.6.65.3  Assumption 
None. 

2. 6.65.4  Approach 

Subroutine  Ql  calls  CALOP  to  open  the  shutdown  file.     Each  section  is  ex- 
amined,   and  if  one  is  in  manual  mode,    it  is  fed  to  time- of- day  (TOD)  opera- 
tion.    MOVER  is  then  called  to  fill  the  output  buffer  and  CALOP  is  called 
to  write  this  buffer  to  the  shutdown  file.     Ql  then  returns  to  Q. 

2.6.65.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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/       F 


ENTER 


FROM  ROUTINE  A  \ 
I  (SECOND  ENTRY  I 
V      FOR  ROUTINE  Q)    J 


STORE  FOLLOWING  ARRAYS 
ON  RAD  FILE  "ENDAY" 


SYMBOL 

CICSF 

CMALF 

CMMAL 

DMALF 

DIS 

SECFC 

SCDFC 

DMODE* 

DATE 

HILDT 

FLTAB 

NOFAL 

EODC 

NHDAY 

FTAB 

FTBW1 


NUMBER 
OF  WORDS 

8 

8 
17 
17 
17 

4 

4 

1 

3 

96 

800 

1 

1 

1 

1 

1 


RELEASE  UTCS 

PROGRAM  AND 

EXIT  TO  RBM 


Subroutine  Ql 


*DEMODE 

MAYBE  ALTERED  DURING 
SHUTDOWN.  ALL  MANUAL 
REQUESTS  ARE  CHANGED 
TO  TOD  REQUESTS 
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2.6.66    SUBROUT INE  C  ALOP 

2.6.66.1  Purpose 

Subroutine  CALOP  opens  the  shutdown  file  (option  1)  or  writes  the  shutdown 
file  (option  2)  on  the  RAD. 

2.6.66.2  Relationship 

Subroutine  CALOP  is  called  from  subroutine  Ql  by: 
CALL  CALOP  (I,    Jl,   32,   J3,    J4,    J5,    J6) 

where: 

I,   Jl,   J2,   J3,   J4,   J5,   and  J6  are  the  mnemonics: 

I      =    Option  flag 

I  =  1  to  open  shutdown  file 

I  =  2  to  write  shutdown  file 
Jl  =    Number  of  fails  in  fail  table  (FLTAB) 
J2  =    End-of-day  count  (number  of  end  of  day  reports) 
J3  =    Number  of  holidays 
J4  =    Number  of  bytes  in  fail  table 
J5  =    Number  of  words  in  fail  table 
J6  =    Line  printer  buffer  pointer. 

2.6.66.3  Assumption 
None. 
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2.6.66.4    Approach 

This  subroutine  is  called  from  Subroutine  Ql  and  is  therefore  not 
required  to  be  re-entrant. 

If  an  error  condition  exists,    a  message  is  typed  on  the  teletype. 

After  writing  the  shutdown  file,    CALOP  releases  the  program,    ending 
execution. 


2.6.66.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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LPBUF(J6)  =  J1 
LPBUF(J6+1)  =  J2 
LPBUF(J6+2)  =  J3 
LPBUF(J6+3)  =  J4 
LPBUF(J6+4)  =  J5 


WRITE  LPBUF 
ONTO  RAD 


I 


DECREMENT 

OPEN  "DATA  CONTROL 

BLOCK" COUNT  BY  1. 


YES 


CLOSE  DATA 
CONTROL  BLOCK 


© 


Subroutine  CALOP 
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( 


RETURN  TO 
MONITOR 


) 


^  IS  THE  DATA ^V.  NO 

<  CONTROL  BLOCK  > 

\.    OPEN?  ^/^ 

OPEN  DATA 
CONTROL  BLOCK 

YES 

\ 

' 

INCREMENT  OPEN  "DATA 
CONTROL  BLOCK"  COUNT 
BY1. 

c 


I 


RETURN 


) 


Subroutine  CALOP  (Concluded) 
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2.6.67    SUBROUTINE  MOVER 

2.6.67.1  Purpose 

This  subroutine  transfers  selected  data  into  line  printer  buffer  LPBUF. 

2.6.67.2  Relationship 

This  subroutine  is  called  by: 

CALL  MOVER  (J) 

where: 

J  indicates  which  arrays  are  to  be  transferred  to  the  line 
printer  buffer. 

2.6.67.3  Assumption 
None. 

2.6.67.4  Approach 

If  J  =  1,    the  contents  of  the  CICTF  and  CTODF  arrays  are  transferred  to 
the  line  printer  buffer  (LPBUF).     If  J  =2,    the  contents  of  the  CMMAL, 
DMALF,    DIS,    SECFC,    SCDFC,    DMODE,    DATE,    FLTAB,    and  HLIDT  arrays 
are  transferred  to  LPBUF. 

2.6.67.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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ENTER 


ICS  =  CS  +1 
FOR  1  <  I   <  ICS 
N  =  2*l 
LPBUF(l)=CTODF(N) 


I 


K  = 

ICS 

FOR  1< 

ICS 

N  = 

2*1 

L  = 

K  +  l 

LPBUF(t)  = 

CICTF(N) 

K  = 

K  +  ICS 

('return') 


IDS-DS  +1 
FOR  1<   l<  IDS 
L=K  +  I 

LPBUF(L)=  L MM  ALU) 


I 


K  =  K  +  IDS 
FOR  1<  I  <  IDS 
L  =  K  +  I 
|_PBUF(L)=DMALF(I) 


Subroutine  MOVER 
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MOVE  ARRAY  (B) 

=  ARRAY  (A) 

(B) 

(A) 

LPBUF  = 

DIS 

LPBUF  = 

SECFC 

LPBUF  = 

SCDFC 

LPBUF  = 

DMODE 

LPBUF  = 

DATE 

LPBUF  = 

FLTAB 

LPBUF  - 

HLIDT 

1 

r 

(ret 

URN  J 

Subroutine  MOVER  (Concluded) 
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2.6.68    ROUTINE  R 


2.6.68.1    Purpose 


Routine  R  effects  the  transition  of  a  non-semi-actuated  controller  from 
computer  control  to  standby,   upon  operator  request. 


2.6.68.2    Relationship 

This  routine  is  executed  as  part  of  the  overall  Priority  Level  2  routines.     It  is 
scheduled  once  per  second.     It  is  entered  upon  completion  of  Routine  P  and 
exits  to  the  Routine  Al.     At  the  start  of  the  routine  a  call  is  made  to  UNPKR 
to  unpack  32  values  of  STBTM.     Thus  STBTM  is  dimensioned  to  32  in 
Routine  V  corresponding  to  32  controllers  currently  being  processed.     At 
the  completion  of  the  routine  a  call  is  made  to  PACKR  to  pack  the  new  32 
values  of  STBTM. 


2.6.68.3    Assumption 
None. 


2.6.68.4    Approach 


Routine  R  is  the  second  routine  in  the  Controller  Do-Loop  and  is  scheduled, 
unconditionally,   after  the  termination  of  Routine  P.     As  with  other  routines 
in  this  loop,   Routine  R  processes  32  controllers  per  entry.     When  an 
operator  request  to  drop  a  controller  is  encountered,    (STBYD(I)^O)  the 
routine  scans  for  the  start  of  A-Phase  Green  (STRTA)  for  the  selected 
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controller.     When  the  .A -Phase  Green  return  is  detected,   a  timeout 
(STBTM)  of  8  seconds  duration  is  initiated.     If  the  request  is  still  standing 
at  the  end  of  this  period,  the  controller  is  dropped  into  standby. 


2.6.68.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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CENTER  FROM^S 
ROUTINE  Al      ) 


11=  1 


KL2  =  ICON  +  11 


©- 


/TV.    YES/    IS  HOLD 

V^r- — s.    <in=o? 


TRNSFCII)  =  0 
SPLCHCII)  =  0 


STBTM(KL2)  = 
STBTM(KL2)  +  IDECR  * 


NO 

1 

' 

MKKL2)=  0 

HOLDCII)  =  0 

CICEFCIDf  0 

CICTF(II)=  0 

FSTCF(I1)=  0 

SPLCHCII)  =  0 

TRNSFCII)  =  0 

STBTM(KL2)  =  0 

STBYD(II)=  0 

A 


STBTM(KL2)  -  0 


YES 


STBTM(KL2)=  IDECP 


©—• 


*  11=  II  +  1 


Routine  R 
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2.6.69    ROUTINE  S 

2. 6.69.  1    Purpose 

Routine  S  computes  the  required  parameters  to  allow  a  smooth  transition 
from  one  area  pattern  to  another.     It  preserves  all  safety  intervals;  utilizes 
the  newly  selected  split  for  the  major  phases  at  the  controller;  and  contains 
the  transitional  cycle  length  to  a  value  between  the  minimum  used  in  the  section 
and  twice  that  number.     The  transformation  occurs  in  the  minimum  time, 
subject  to  the  following  conditions:    a  transition  can  be  initiated  by  any  of 
the  following  two  conditions: 

a)  Controller  being  transferred  from  standby  to  computer 
control. 

b)  A  new  pattern  has  been  selected  for  the  section  containing 
this  controller. 

Upon  detection  of  either  of  these  conditions  the  routine  will  compute: 

a)  number  of  intermediate  cycles  required 

b)  the  intermediate  cycle  length 

c)  the  intermediate  variable  interval  durations. 


2.6.69.2    Relationship 

This  routine  is  incorporated  in  the  system  as  a  subroutine.     It  is  called 
exclusively  by  the  Interval  Advance  Routine,   Routine  T.     At  entry  to 
Routine  S,   a  call  is  made  to  UNPS  to  unpack  the  following  data  for  the 
current  controller: 
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1.  The  four  values  for  GAABC,    GMABC,    and  SABCT. 

2.  CYCLC,    K3PH,    NMVAR,    TKM. 

Subroutine  MBYTS  is  called  to  move  entry  duration  values  (ENINI)  to  a 
work  area  array  (INTDI). 

2.6.69.3  Assumption 
None. 

2.6.69.4  Approach 

This  routine  is  entered  at  the  start  of  A-Phase  Green  if  any  one  of  the  two 
conditions  summarized  above  is  present.     The  routine  will  perform  the 
following  computations. 

1.  The  difference,   DOFF,  between  the  present  offset  and  the 
desired  new  offset  will  be  computed. 

2.  If  negative,   DOFF' will  be  converted  to  its  positive 
equivalent. 

3#       If  the  magnitude  of  DOFF  is  less  than  3  seconds,   no 
transitional  cycles  will  be  required. 

4.  If  DOFF  is  greater  than  3  seconds,  either  one  or  two  inter- 
mediate cycles,   whose  cycle  length  is  greater  than  a 
prescribed  minimum  value  and  less  than  twice  that  value, 
will  be  generated. 

5.  If  there  are  more  than  two  adjustable  interval  durations 
at  the  controller  (or  more  than  three  for  a  Type  B 
multiple -phase  critical  intersection  controller),   all  of 
those  intervals  above  this  number  will  be  set  to  a  defined 
minimum  value. 
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6.      The  split  during  the  transitional  cycles  will  be  apportioned 
according  to  the  following  logic: 

a)  The  durations  of  all  safety  intervals  will  be 
maintained. 

b)  The  adjustable  interval  durations  associated  with 
all  the  minor  movements  will  be  set  equal  to  their 
respective  minimum  values.     The  residual  cycle 
time  will  be  apportioned  to  the  two  or  three  major 
movements  according  to  the  procedure  below. 

c)  The  split  for  these  two  or  three  major  movements 
will  be  set  equal  to  that  value  which  will  be  used 
after  the  transitional  cycles  have  been  completed. 


2.  6.  69.  5.    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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(ENTER  FROM  ) 
ROUTINE  T  J 

i 


SUBROUTINE  UNPS 
UNPACK  BYTE 
ARRAYS 


A. 


IR6=  16*KL2-15 
IR15  =  4*KL2-3 


VARO  =  VRINT(IR15)+IR6 
VAR1  =  VRINT(IR15+1)+IR6 
VAR2  =  VRINT(IR15+2)+IR6 


DOFF=  ENOFF-KCTC(CYCLC) 


YES 


DOFF  =  DOFF+KCL(CYCLC) 


TRANSFER  "ENTRY  INTERVAL  DURATIONS"  TO  WORKING  STORAGE; 
I.E.  INTDU(N)  =  ENINT(N)  WHERE  N  =  1,2,3,....,16 


IR7=  IR15 


YES         I  SET  'WORKING  OFFSET'  TO  'ENTRY! 


-♦lOFFSET',  I.E.  WRKOF(KL2)  = 
|EN0FF(KL2) 


STORE  FIRST  INTERVAL 
DURATION  +  DOFF  IN 
"COUNTDOWN  REGISTER"; 
CNTDR(ICON)=  INTDU(IR6) 
+DOFF 


MI(JL2)=  0 


(EXIT  TO      ^\ 
ROUTINE  T    J 


1 

YES 

r 

DOFF=  DOFF/2 

1 

t 

1 

MI(JL2)=  1 

MKJL2)=  2 

6 


Routine  S 
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IR13  =  2 


G> 


YES 


NO 


YES 


IR7=  IR7  +  IR13 


IR5=  VRINT(IR7)  +  IR6 
INTDU(IR5)  =  GMABC(IR7) 


IR7=  IR7  +  1 
IR13=  IR13  +  1 


IR13=  3 


Routine  S  (Continued) 
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NO 


YES 


IR15  =  D0FF-SABCTC4) 
IR12  =  IR15 


IR15  =  IR15*(SABCT(2)+EN!NT(VARD) 
IR15=  (IR15/GAABC(l)*2+l)/2 


YES 


*© 


IR12  =  IR12-IR15 


XLS- 


+© 


V 

IR15  =  D0FF-SABCTC4) 

IR12=  IR15 

IR15  =  IR15(SABCT(3)+ENINT(VAR2))*2 

GAABCC3) 
IR15  =  IR15+1 
2 

0* 


YES 


<D 


IR12  =  IR12-IR15 
INTDU(VAR2)=  IR15-SABCK3) 
IR15  =  IR12 


INTDU(VARO)  =  IR12-SABCTCL) 
INTDU(VARl)  =  IR15-SABCTC2) 


Routine  S  (Continued) 
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INTDU(VARO)  =  IR12-SABCTCL) 
-GMABCC2) 


G> 


INTDU(VARl)  =  GMABC(2)-SABCT(2) 


STORE  FIRST  INTERVAL 
DURATION  IN  "COUNTDOWN 
REGISTER"  I.E. 
CNTDR(ICON)  =  INTDU(IR6) 


3Z 

(       RETURN       J 


0* 


INTDU(VARO)  =  GMABC(l)-SABCTd) 


I 


IR12  =  IR12-HR15 


I 


INTDU(VARl)  = 
IR12-SABCT(2)-GMABC(i: 


0 


i 


IRll  =  IR12+GMABC(2) 
-GMABC(l) 


INTDU(VARO)  =  GMABCd)-SABCT(l) 

INTDU(VAR2)  =  IR12-GMABC(1)-SABCT(3)-GMABC(2) 


Routine  S  (Concluded) 
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2.6.70    SUBROUTINE  MBYTS 


2.6.70.1    Purpose 


The  purpose  of  Subroutine  MBYTS  is  to  efficiently  move  strings  of  byte  data 
from  entry  storage  into  working  storage.     The  entry  and  working  storage 
arrays  are  discussed  in  Section  1 .  5  of  Reference  4. 


2.6.70.2  Relationship 

This  subroutine  is  called  by: 

CALL  MBYTS  (X,    Y,    I,    N) 
where: 

X,    Y,    I,    and  N  are  the  mnemonics: 

X  =  Entry  byte  string.     (Source  of  bytes  to  be  moved.  ) 

Y  =  Working  byte  string.     (Destination  of  bytes  to  be  moved.  ) 

I    =  Starting  byte  index  for  X.     (Index  of  first  byte  of  array  X 

to  be  moved.  ) 
N  =  Number  of  bytes  to  be  moved. 

2.6.70.3  Assumption 
None. 
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2.6.70.4    Approach 

This  subroutine  is  called  exclusively  by  the  Priority  Level  2  Routines  T  and 
S  and  therefore  has  no  re-entrancy  requirement. 

It  should  be  noted  that  the  index  I  is  a  FORTRAN  index  and  as  such,    must 
be  decremented  by  one  in  the  subroutine  to  obtain  the  proper  assembly 
language  index  to  access  the  array. 


2.6.70.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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Subroutine  MBYTS 
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2.6.71     SUBROUTINE  UNPS 

2.6. 71. 1  Purpose 

Subroutine  UNPS  unpacks  bytes  from  variables  in  BLOCK18  into  WSLZ, 

2.6.71.2  Relationship 

This  subroutine  is  called  from  Routine  S  by: 

CALL  UNPS 
This  subroutine  calls  UPBYT. 

2.6.71.3  Assumption 
None. 

2.6.71.4  Approach 

Unpack  all  bytes 
From  To 

GAABI  WSLZ  (10-13) 
GMABI  WSLZ  (14-17) 
SABCI         WSLZ  (20-23) 

Unpack  the  fourth  byte 

From  To 

CYCLI  WSLZ  (9) 

K3PHI  WSLZ  (18) 

NMVAI  WSLZ  (19) 

TKMI  WSLZ  (24) 

ENOFI  WSLZ  (43) 
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2.6.71.5    Listing 


See  Volume  III,    2GCF  Routine  Listings. 
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C      ENTER       J 


1=4*  KLZ  -  3 
J  =  1 


I 


CALL  UPBYT 
(GAABI,  I,  GAABC(J)) 


i 


CALL  UPBYT 
GMABI,  I,  GMABC(J)) 


I 


CALL  UPBYT 
(SABCI,  I,  SABCT(J): 


1 


J  =  J  +  1 
1=1+1 


Subroutine  UNPS 
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CALL  UPBYT 
(CYCLI,  KL2,  CYCLC) 


I 


CYCLC  =  CYCLC  +1 


CALL  UPBYT 
(K3PHI,  KL2,  K3PH) 


I 


CALL  UPBYT 

(NMVAI,  KL2,  NMVAR) 


I 


CALL  UPBYT 
(TKMI,KL2,  TKM) 


I 


CALL  UPBYT 
(EN0FI/KL2,    ENOFF) 


I 


f    RETURN  J 

Subroutine  UNPS  (Concluded) 
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2.6.72    ROUTINE  T 
2. 6.72.  1    Purpose 


The  primary  functions  of  Routine  T  are  to: 


•  Establish  and  impose  the  necessary  transition  cycles  to 
transform  a  controller  from  standby  to  computer  con- 
trol.    This  transition  is  initiated  at  the  start  of  A-Phase 
Green  provided  the  necessary  input  conditions  are 
satisfied. 

•  Count  down,   by  subtracting  1  second  per  pass  through 
the  routine,  the  interval  durations  for    those  controllers 
under  computer  control.     When  the  count  goes  to  zero 
the  interval  number  is  incremented  by  1  and  tested  for 
the  maximum.     If  the  maximum  is  exceeded,   the  interval 
number  is  reset  to  1  and  the  countdown  register  is 
initialized  to  the  first  interval  duration.     Otherwise,  the 
next  interval  duration  is  stored  into  the  countdown 
register. 

•  Provide  the  capability  to  incorporate  operator  selected 
values  of  split  or  offset  at  the  start  of  interval  one. 
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2.6.72.2    Relationship 

Routine  T  is  part  of  the  Level  2  Do-Loop  and  is  executed  every  second. 
Routine  T  may  call  the  following  routines: 

•  Routine  S  —  Transition  Routine 

•  Routine  U  —  Offset  Correction  Routine 

It  is  entered  after  Routine  R  and  exits  to  Routine  Al.     If  conditions  are 
satisfied  for  any  controller  a  call  is  made  to  UNPT  to  unpack  INTR2,   and 
INTRH,   and  for  that  controller.     After  processing  that  controller  a  call 
is  made  to  PCKT  to  pack  INTNM  and  INTNL  for  that  controller. 


2.6.72.3    Assumption 


None, 


2.6.72.4    Approach 

This  routine  checks  for  the  presence  of  the  "Automatic  Control  Desired  Flag' 
for  those  controllers  which  are  in  standby.     If  these  conditions  are  met,   the 
controller  will  be  placed  under  computer  control  at  the  beginning  of  the  next 
A-Phase  Green.     At  this  time,   the  "Automatic  Control  Desired  Flag"  will 
be  cleared,   and  the  interval  number  count  will  be  initiated  at  1.     The  next 
step  is  call  of  Routine  S,   Transition  Routine,   which  will  compute  the  re- 
quired intermediate  cycle,   split,   and  offset  to  effect  the  change  to  the  com- 
puter-selected cycle,    split,   and  offset. 

Under  normal  computer  control,   this  routine  will  decrement  an  interval 
"Count-Down  Register"  every  1  second  until  zero  is  reached.     At  this  time 
the  following  sequence  of  events  will  be  initiated: 
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1.  If  the  "Advance  Pulse  Inhibit  Flag"  (ADVNH)  has  not 
been  set  by  Routine  P,   Synchronization  of  Controller 
with  Computer,   the  "Interval  Advance  Pulse"  (IADVP) 
will  be  set. 

2.  If  the  "Advance  Pulse  Inhibit  Flag"  is  set,   it  will  be 
cleared  at  this  time,  and  no  "Interval  Advance  Pulse" 
will  be  transmitted. 

3.  The  "Interval  Count"  will  be  updated  by  one  and  will  be 
checked  for  exceeding  the  highest  numbered  interval. 

4.  If  the  highest  numbered  interval  has  not  been  exceeded, 
the  next  interval  duration  will  be  stored  in  the  "Count- 
down Register"  (CNTDR).     If  the  highest  numbered 
interval  has  been  exceeded,  the  "Interval  Count," 
(INJNM)  will  be  reset  to  one,   and  some  combination 

of  the  following  functions  will  be  performed. 

•  Transitional  cycle(s)  will  be  initiated  to  transfer 
to  a  new  selection  of  cycle,   split,   and  offset  if  the 
"Transition  Flag"  (TRNSF)  is  set.     These  flags  are 
set  whenever  a  new  timing  pattern  is  being  imposed. 

•  A  transition  already  in  effect  will  be  continued  for 
one  additional  cycle  if  the  MI  count  is  non-zero. 
There  will  be  a  maximum  of  two  intermediate 
cycles.     The  MI  count  is  determined  by  compu- 
tations in  Routine  S  and  is  indicative  of  the  minimum 
number  of  cycles  necessary  to  impose  the  selected 
timing  pattern  on  a  given  controller. 
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•  An  operator  split  change  will  be  introduced  if  the 
"Operator  Split  Change  Flag"  (SPLCH)  is  set,   and 
a  transition  is  not  in  effect  as  evidenced  by  the 
"Transition  Flag"  or  the  MI  count. 

•  An  operator  offset  change  will  be  introduced  at  this 
time,   by  calling  Routine  U,    if  new  offset  data  has 
been  selected,   and  a  transition  is  not  in  effect.     If 
should  be  noted  that  a  transition  will  override  either 
an  operator  split  selection  or  an  operator  offset 
selection. 

•  Any  cumulative  offset  error  which  has  accrued  over 
the  preceding  cycle  will  be  adjusted  at  this  time  by 
calling  Routine  U,   Offset  Correction  Routine,   pro- 
vided the  program  is  not  in  a  transitional  cycle. 

Immediately  following  the  transfer  of  "Entry  Offsets"  into  working  storage, 
a  test  is  performed  on  the  "Split  Flag.  "    If  the  flag  is  set,   indicating  inter- 
section splits  were  transferred  to  working  storage  in  Routine  W,   the  B- 
and  C-Phase  offsets  are  calculated  from  the  A-Phase  offset  and  splits, 
and  the  A-,   B-,   and  C -Phase  offsets  are  stored  in  the  array  WRKOFS. 

Immediately  prior  to  a  call  to  Routine  S,   Transition  Routine,   coding  has 
been  added  to  transfer  the  Entry  Cycle  Length  code  (ENTCYCL)  into  the 
working  Cycle  Length  Code  (CYCLC).     This  transfer  is  necessary  because 
ENTCYCL  is  not  equated  to  CYCLC  in  the  second  generation  software  for 
reasons  described  in  the  Routine  W  discussion. 

2.6.72.5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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f     ENTER     A 

V  FROM  k\J 


Routine  T 
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INTNL   - INTNP 


DECREMENT  "COUNTDOWN 
REGISTER,"  I.E. 
CNTDR(KL2)  =  CNTDR(KL2)-1 


SET  IR2,  IR15 
TO  ZERO 


UNPT 


IR15  -  1 


IR6  =  16*(KL2)-15 


YES 


INTNM  =  1 


YES 


IR4  =  IR4+INTNM 


GET  FIRST  INTERVAL 
DURATION  VALUE  AND 
STORE  IN  CNTDR;  I.E. 
CNTDR(ICON)INTDU 


GET  INTERVAL  DURATION 
VALUE  CORRESPONDING  TO 
INTNM  AND  STORE  IN 
COUNTDOWN  REGISTER 
CNTDRCKL2)  =  INTDU 


IR2  =  1 


INTNM  =  INTNM  +  1 


Routine  T  (Continued) 
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ROUTINE  U 

CALL  OFFSET 

CORRECTION 

ROUTINE 


IADVPUL2)   0 


YES 


CPAOGUL2:  -  0 


YES 


YES 


SPLCHUL2) = 0 
TRNSFUL2)  -  0 
FSTCFUL2) -  0 
CICBPUL2)  =  1 


ROUTINE  S 

CALL  TRANSITION 
ROUTINE 


Routine  T  (Continued) 
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MKJL2)  =  MI(JL2)-1 


CLEAR  "OFFSET  CHANGE 
FLAG" AND  "SPLIT  CHANGE 
FLAG" 

FSTCFUL2)  =  0 
SPLCHUL2)  =  0 


CNTDR(KL2)  =  ENINT(IR6) 


WRKOFCJL2)  =  ENOFFUL2) 


CLEAR  "OPERATOR  SPLIT 
CHANGE  FLAG" 
SPLCHUL2)  =  0 


TRANSFER  "ENTRY  INTERVALS' 
INTO  WORKING  STORAGE;  I.E. 
INTDU(IR6+N)  = 
ENINTCIR6+N) 
WHERE  N  =  1,  16 


STORE  OPERATOR  SPLIT  INTO 
WORKING  STORAGE 

I  =  4*JL2-3 

II  =  IR6+VRINTU) 

12  =  IR6+VRINT(I+1) 
INTDU(ll)  =  GAWTP 
INTDUCI2)  =  GBWTP 


Routine  T  (Continued) 
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CLEAR  OFFSET  CHANGE  FLAG 
OPERATOR  SPLIT  CHANGE 
FLAG  AND  TRANSITION  FLAG 
FSTCFCJL2)  =  0 
SPLCHUL2)  =  0 
TRNSFUL2)  =  0 


HOLDUL2)  =  SET  COMPUTER  HOLD  FLAG 
CICBPCJL2)  =  SET  CIC  BYPASS  FLAG 
CPA0GUL2)  =  SET  COMPUTER  START  OF 

A-PHASE  GREEN 
AUTOFUL2)  =  CLEAR  AUTOMATIC  CONTROL 

DESIRED  FLAGS 


ROUTINE  S 
CALL  TRANSITION 
ROUTINE 


Routine  T  (Concluded) 
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2.6.73    SUBROUTINE  PCKT 

2.6.73.1  Purpose 

This  subroutine  packs  bytes  from  WSLZ  (6)  into  INTMI,    and  WSLZ  (7)  into 
INTLI. 

2.6.73.2  Relationship 

This  subroutine  is  called  from  Routine  T  by: 

CALL  PCKT 
This  subroutine  calls  PKBYT. 

2.6.73.3  Assumption 
None. 

2.6.73.4  Approach 

Subroutine  PCKT  calls  on  subroutine  PKBYT  to  store  WSLZ(6)  and  WSLZ(7) 
into  the  KL2  byte  of  INTMI  and  INTLI,    respectively.     Variable  KL2  is 
passed  through  COMMON  block  BYTL2.     PCKT  then  returns  to  the  calling 
routine. 

2.6.73.5  Listing 

See  Volume  III,    2GCF  Routine  Listings. 


355 


c 

ENTER 

1 

) 

CALL  PKBYT 
(INTMI,  KL2,  1 

NTNM) 

1 

CALL  PKBYT 
(INTLI,  KL2, 

INTNL) 

(      RETURN 

) 

Subroutine  PCKT 
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2.6.74    SUBROUTINE  UNPT 

2.6.74.1  Purpose 

Subroutine  UNPT  unpacks  bytes  from  INTZI  and  INTHI  to  WSLZ(4)  and 
WSLZ(5). 

2.6.74.2  Relationship 

This  subroutine  is  called  from  Routine  T  by: 

CALL  UNPT 
This  subroutine  calls  UPBYT. 

2.6.74.3  Assumption 
None. 

2.6.74.4  Approach 

Subroutine  UNPT  calls  UPBYT  to  unpack  the  byte  in  INTZI  and  the  byte  in 
INTHI  indexed  by  KL2.     Variable  KL2  is  passed  in  COMMON  block  BYTL2 
UNPT  stores  these  bytes  in  WSLZ(4)  and  WSLZ(5),    then  returns  to  the 
calling  routine. 

2.6.  74.5    Listing 

See  Volume  III,    2GCF  Routine  Listings. 
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c 

ENTER 

1 

) 

CALL  UPBYT 
(INTZI,  KL2, 

NTRZ) 

1 

CALL  UPBYT 
(INTHI,|<L2,  1 

NTRH) 

c 

\ 

RETURN 

) 

Subroutine  UNPT 
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